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

+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.

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.,

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

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;