diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-08-21 11:22:52 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-22 08:11:28 -0400 |
| commit | dfb7345cd54e90b4f5cc0234bd37ec2763602180 (patch) | |
| tree | 3faebb287f7e9b8efdc10f30d18fb4e23ecefd7a /gcc/ada/switch-c.adb | |
| parent | b2dea70e920c5dab3118f362f693d4c0e6d9af87 (diff) | |
| download | gcc-dfb7345cd54e90b4f5cc0234bd37ec2763602180.zip gcc-dfb7345cd54e90b4f5cc0234bd37ec2763602180.tar.gz gcc-dfb7345cd54e90b4f5cc0234bd37ec2763602180.tar.bz2 | |
[Ada] Enable the support of 128-bit integer types by default
gcc/ada/
* Makefile.rtl (GNATRTL_128BIT_PAIRS): Add i-cexten.ads.
* debug.adb (d.H): Document new usage.
* doc/gnat_rm/representation_clauses_and_pragmas.rst (Size Clauses):
Document new limit on 64-bit platforms.
(Component_Size Clauses): Likewise.
(Pragma Pack for Arrays): Likewise.
(Pragma Pack for Records): Likewise.
(Record Representation Clauses): Likewise.
* gnat_rm.texi: Regenerate.
* gnat1drv.adb (Adjust_Global_Switches): Rewrite code enabling or
disabling the support for 128-bit integer types.
* switch-c.adb (Scan_Front_End_Switches): Do not deal with e128.
* usage.adb (Write_Switch_Char): Do not print -gnate128 switch.
* libgnat/i-cexten__128.ads: New file.
gcc/testsuite/
* ada/acats/run_all.sh: Define and substitute target_{max,min}_int.
* ada/acats/support/macro.dfs: Parameterize {MAX,MIN}_INT.
* gnat.dg/assert1.adb: Adjust conditionally to 128-bit integer types.
* gnat.dg/size_clause1.adb: Do not expect a warning for LP64 targets.
* gnat.dg/warn11.adb: Likewise.
* gnat.dg/specs/rep_clause5.ads (Array_2_Type): Add alignment clause.
Diffstat (limited to 'gcc/ada/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 0851307..e086a5d 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -844,28 +844,6 @@ package body Switch.C is Disable_Switch_Storing; Ptr := Ptr + 1; - -- -gnate128 (Enable 128-bit types) - - when '1' => - if Ptr = Max then - Bad_Switch ("-gnate1"); - end if; - - Ptr := Ptr + 1; - - if Switch_Chars (Ptr) /= '2' then - Bad_Switch ("-gnate1" & Switch_Chars (Ptr .. Max)); - end if; - - Ptr := Ptr + 1; - - if Switch_Chars (Ptr) /= '8' then - Bad_Switch ("-gnate12" & Switch_Chars (Ptr .. Max)); - end if; - - Enable_128bit_Types := True; - Ptr := Ptr + 1; - -- All other -gnate? switches are unassigned when others => |