diff options
Diffstat (limited to 'gcc/ada/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index fab690a..df91201a 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -220,12 +220,6 @@ package body Switch.C is ASIS_Mode := True; end if; - -- Processing for C switch - - when 'C' => - Ptr := Ptr + 1; - Scan_Pos (Switch_Chars, 999, Ptr, Multiple_Unit_Index); - -- Processing for d switch when 'd' => @@ -388,6 +382,12 @@ package body Switch.C is Full_Path_Name_For_Brief_Errors := True; return; + -- -gnateI (index of unit in multi-unit source) + + when 'I' => + Ptr := Ptr + 1; + Scan_Pos (Switch_Chars, 999, Ptr, Multiple_Unit_Index); + -- -gnatem (mapping file) when 'm' => |