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 | |
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')
-rw-r--r-- | gcc/ada/ChangeLog | 10 | ||||
-rw-r--r-- | gcc/ada/frontend.adb | 3 | ||||
-rw-r--r-- | gcc/ada/gnat1drv.adb | 11 | ||||
-rw-r--r-- | gcc/ada/switch.adb | 3 |
4 files changed, 16 insertions, 11 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 568f00d..01209795 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,13 @@ +2001-12-17 Robert Dewar <dewar@gnat.com> + + * 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 + 2001-12-15 Richard Henderson <rth@redhat.com> * sem_ch7.adb: Wrap comment. diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index 9aa1e7d..bbfdaee 100644 --- a/gcc/ada/frontend.adb +++ b/gcc/ada/frontend.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.84 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -302,6 +302,7 @@ begin -- Output any messages for unreferenced entities Output_Unreferenced_Messages; + Sem_Warn.Check_Unused_Withs; end if; -- Qualify all entity names in inner packages, package bodies, etc., diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index afa04c6..ddcc1e7 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.129 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -50,7 +50,6 @@ with Repinfo; use Repinfo; with Restrict; use Restrict; with Sem; with Sem_Ch13; -with Sem_Warn; with Sinfo; use Sinfo; with Sinput.L; use Sinput.L; with Snames; @@ -327,10 +326,6 @@ begin Exit_Program (E_Errors); end if; - -- Check for unused with's. We do this whether or not code is generated - - Sem_Warn.Check_Unused_Withs; - -- Set Generate_Code on main unit and its spec. We do this even if -- are not generating code, since Lib-Writ uses this to determine -- which units get written in the ali file. @@ -347,10 +342,6 @@ begin (Get_Cunit_Unit_Number (Library_Unit (Main_Unit_Node))); end if; - -- Check for unused with's. We do this whether or not code is generated - - Sem_Warn.Check_Unused_Withs; - -- Case of no code required to be generated, exit indicating no error if Original_Operating_Mode = Check_Syntax then 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; |