diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-17 20:51:30 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-17 20:51:30 +0000 |
| commit | 303e829182e62008667899110e4f22831d1c419d (patch) | |
| tree | afc9a30cea33ef608a09965e03afeb5bd25bc1da | |
| parent | 9e5833d993fe743003c8efc99f475c499adec3ff (diff) | |
| download | gcc-303e829182e62008667899110e4f22831d1c419d.tar.gz | |
* 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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@48124 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 568f00d7808..0120979570b 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 9aa1e7d16c9..bbfdaee5c8c 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 afa04c6409a..ddcc1e7f220 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 9b06500d55e..5749e0ff711 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; |