diff options
Diffstat (limited to 'gcc/ada/switch-c.adb')
-rw-r--r-- | gcc/ada/switch-c.adb | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index e086a5d..0851307 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -844,6 +844,28 @@ 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 => |