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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 568f00d7808f8492e8a42d6b8ed7f7b3e4ee149c..0120979570b82faa22f582f7cc94fe48f13daa83 100644 (file)
--- 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 9aa1e7d16c914ab34e17039ead76c9acc6dad9ae..bbfdaee5c8c5adc4dd61a9e25e3bc9f429fcf0c8 100644 (file)
--- 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 afa04c6409a7d372467b54028f3226721e78c4a8..ddcc1e7f22052c6e981a12b7c100f63c82ef9113 100644 (file)
--- 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 9b06500d55e4ad78c618325de27dc3a7971c6c3d..5749e0ff7114d342d3a50261c3610a45e044afe9 100644 (file)
--- 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;