[Ada] Reflect ACT changes of 2001-11-03

[Geert Bosch]

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

*** frontend.adb	2001/09/01 23:23:31	1.84
--- frontend.adb	2001/11/03 15:50:17	1.85
***************
*** 302,307 ****
--- 302,308 ----
        --  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.,

*** gnat1drv.adb	2001/08/30 17:20:32	1.129
--- gnat1drv.adb	2001/11/03 15:50:31	1.130
***************
*** 50,56 ****
  with Restrict; use Restrict;
  with Sem;
  with Sem_Ch13;
- with Sem_Warn;
  with Sinfo;    use Sinfo;
  with Sinput.L; use Sinput.L;
  with Snames;
--- 50,55 ----
***************
*** 327,336 ****
           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.
--- 326,331 ----
***************
*** 346,355 ****
           Set_Generate_Code
             (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
  
--- 341,346 ----

*** switch.adb	2001/11/02 15:13:25	1.196
--- switch.adb	2001/11/03 16:36:55	1.197
***************
*** 221,234 ****
--- 221,237 ----
  
           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;