diff options
Diffstat (limited to 'gcc/ada/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index e5e95368392..5f4e6cabadc 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -96,8 +96,8 @@ package body Switch.C is when False => - -- There are only two front-end switches that - -- do not start with -gnat, namely -I and --RTS + -- There are few front-end switches that + -- do not start with -gnat: -I, --RTS, -nostdlib if Switch_Chars (Ptr) = 'I' then Store_Switch := False; @@ -119,6 +119,14 @@ package body Switch.C is Ptr := Max + 1; + -- Processing of -nostdlib + + elsif Ptr + 7 = Max + and then Switch_Chars (Ptr .. Ptr + 7) = "nostdlib" + then + Opt.No_Stdlib := True; + Ptr := Max + 1; + -- Processing of the --RTS switch. --RTS has been modified by -- gcc and is now of the form -fRTS @@ -637,6 +645,12 @@ package body Switch.C is Ptr := Ptr + 1; Operating_Mode := Check_Syntax; + -- Processing for S switch + + when 'S' => + Print_Standard := True; + Ptr := Ptr + 1; + -- Processing for t switch when 't' => |