diff options
Diffstat (limited to 'gcc/ada/switch-b.adb')
| -rw-r--r-- | gcc/ada/switch-b.adb | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/switch-b.adb b/gcc/ada/switch-b.adb index ecc022e..8cf9cf4 100644 --- a/gcc/ada/switch-b.adb +++ b/gcc/ada/switch-b.adb @@ -24,9 +24,9 @@ -- -- ------------------------------------------------------------------------------ -with Debug; use Debug; -with Osint; use Osint; -with Opt; use Opt; +with Debug; use Debug; +with Osint; use Osint; +with Opt; use Opt; with System.WCh_Con; use System.WCh_Con; @@ -58,7 +58,6 @@ package body Switch.B is then Osint.Fail ("invalid switch: """, Switch_Chars, """" & " (gnat not needed here)"); - end if; -- Loop to scan through switches given in switch string @@ -132,6 +131,12 @@ package body Switch.B is return; + -- Processing for D switch + + when 'D' => + Ptr := Ptr + 1; + Scan_Pos (Switch_Chars, Max, Ptr, Default_Sec_Stack_Size); + -- Processing for e switch when 'e' => |