[Ada] Minor reformatting

[Geert Bosch]

2001-12-03  Robert Dewar <dewar@gnat.com>

	* prj-proc.adb: Minor reformatting
	
	* make.adb: Minor reformatting

*** prj-proc.adb	2001/10/05 15:15:52	1.17
--- prj-proc.adb	2001/10/05 16:11:38	1.18
***************
*** 27,33 ****
  ------------------------------------------------------------------------------
  
  with Errout;   use Errout;
- with GNAT.Case_Util;
  with Namet;    use Namet;
  with Opt;
  with Output;   use Output;
--- 27,32 ----
***************
*** 37,42 ****
--- 36,42 ----
  with Prj.Nmsc; use Prj.Nmsc;
  with Stringt;  use Stringt;
  
+ with GNAT.Case_Util;
  with GNAT.HTable;
  
  package body Prj.Proc is
***************
*** 75,81 ****
     function Imported_Or_Modified_Project_From
       (Project   : Project_Id;
        With_Name : Name_Id)
!      return Project_Id;
     --  Find an imported or modified project of Project whose name is With_Name.
  
     function Package_From
--- 75,81 ----
     function Imported_Or_Modified_Project_From
       (Project   : Project_Id;
        With_Name : Name_Id)
!       return      Project_Id;
     --  Find an imported or modified project of Project whose name is With_Name.
  
     function Package_From
***************
*** 641,646 ****
--- 641,647 ----
           The_Term := Next_Term (The_Term);
  
        end loop;
+ 
        return Result;
     end Expression;
  
***************
*** 682,688 ****
  
           return Project_Lists.Table (List).Project;
        end if;
- 
     end Imported_Or_Modified_Project_From;
  
     ------------------
--- 683,688 ----
***************
*** 1267,1273 ****
  
           Prj.Nmsc.Ada_Check (Project, Error_Report);
        end if;
- 
     end Recursive_Check;
  
     -----------------------
--- 1267,1272 ----

*** make.adb	2001/10/05 15:15:13	1.174
--- make.adb	2001/10/05 16:17:12	1.175
***************
*** 1674,1688 ****
  
                       declare
                          Defaults : constant Array_Element_Id :=
!                           Prj.Util.Value_Of
!                            (Name => Name_Default_Switches,
!                             In_Arrays => Packages.Table
!                                           (Compiler_Package).Decl.Arrays);
                          Switches_Array : constant Array_Element_Id :=
!                           Prj.Util.Value_Of
!                            (Name => Name_Switches,
!                             In_Arrays => Packages.Table
!                                           (Compiler_Package).Decl.Arrays);
  
                       begin
                          Switches :=
--- 1674,1692 ----
  
                       declare
                          Defaults : constant Array_Element_Id :=
!                                      Prj.Util.Value_Of
!                                       (Name => Name_Default_Switches,
!                                        In_Arrays =>
!                                          Packages.Table
!                                            (Compiler_Package) .Decl.Arrays);
! 
                          Switches_Array : constant Array_Element_Id :=
!                                            Prj.Util.Value_Of
!                                              (Name => Name_Switches,
!                                               In_Arrays =>
!                                                 Packages.Table
!                                                   (Compiler_Package).
!                                                               Decl.Arrays);
  
                       begin
                          Switches :=
***************
*** 1695,1703 ****
                               Prj.Util.Value_Of
                                 (Index => Name_Ada, In_Array => Defaults);
                          end if;
- 
                       end;
- 
                    end if;
  
                    case Switches.Kind is
--- 1699,1705 ----