From 7eb7bb079d2fb0c22d9e31995a3ea8d812e5a042 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 17 Dec 2001 20:51:30 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 10 ++++++++++ gcc/ada/frontend.adb | 3 ++- gcc/ada/gnat1drv.adb | 11 +---------- 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 + + * 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 * 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; -- 2.30.2