diff options
| author | Robert Dewar <dewar@gnat.com> | 2001-12-17 20:51:30 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-17 21:51:30 +0100 |
| commit | 7eb7bb079d2fb0c22d9e31995a3ea8d812e5a042 (patch) | |
| tree | afc9a30cea33ef608a09965e03afeb5bd25bc1da /gcc/ada/switch.adb | |
| parent | b1085d2daa8889643275eeb2be01f3820e6ce1ca (diff) | |
| download | gcc-7eb7bb079d2fb0c22d9e31995a3ea8d812e5a042.zip gcc-7eb7bb079d2fb0c22d9e31995a3ea8d812e5a042.tar.gz gcc-7eb7bb079d2fb0c22d9e31995a3ea8d812e5a042.tar.bz2 | |
frontend.adb: Move call to Check_Unused_Withs from Frontend...
* frontend.adb: Move call to Check_Unused_Withs from Frontend, so
that it happens before modification of Sloc values for -gnatD.
* gnat1drv.adb: Move call to Check_Unused_Withs to Frontend,
so that it happens before modification of Sloc values for -gnatD.
* switch.adb: Minor reformatting
From-SVN: r48124
Diffstat (limited to 'gcc/ada/switch.adb')
| -rw-r--r-- | gcc/ada/switch.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/switch.adb b/gcc/ada/switch.adb index 9b06500..5749e0f 100644 --- a/gcc/ada/switch.adb +++ b/gcc/ada/switch.adb @@ -221,14 +221,17 @@ package body Switch is when 'g' => Ptr := Ptr + 1; + if Ptr <= Max then C := Switch_Chars (Ptr); + if C in '0' .. '3' then Debugger_Level := Character'Pos (Switch_Chars (Ptr)) - Character'Pos ('0'); Ptr := Ptr + 1; end if; + else Debugger_Level := 2; end if; |