prj-proc.adb: Minor reformatting

	* prj-proc.adb: Minor reformatting

	* make.adb: Minor reformatting

From-SVN: r47562

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 201778c0701319cad3bd5fc896ddc1b47461e32a..6a5bf505e9ff6c1738aee775396cb74a20710ab2 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2001-12-03  Robert Dewar <dewar@gnat.com>
+
+       * prj-proc.adb: Minor reformatting
+       
+       * make.adb: Minor reformatting
+
 2001-12-03  Geert Bosch <bosch@gnat.com>
 
        * make.adb: Minor reformatting.

diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb
index 7e78fc923843529ad190d65d51a75935b32f17c8..bab1109ad77d5502df61a984b8420f0b2bd8f8d5 100644 (file)
--- a/gcc/ada/make.adb
+++ b/gcc/ada/make.adb
@@ -1674,15 +1674,19 @@ package body Make is
 
                      declare
                         Defaults : constant Array_Element_Id :=
-                          Prj.Util.Value_Of
-                           (Name => Name_Default_Switches,
-                            In_Arrays => Packages.Table
-                                          (Compiler_Package).Decl.Arrays);
+                                     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);
+                                           Prj.Util.Value_Of
+                                             (Name => Name_Switches,
+                                              In_Arrays =>
+                                                Packages.Table
+                                                  (Compiler_Package).
+                                                              Decl.Arrays);
 
                      begin
                         Switches :=
@@ -1695,9 +1699,7 @@ package body Make is
                              Prj.Util.Value_Of
                                (Index => Name_Ada, In_Array => Defaults);
                         end if;
-
                      end;
-
                   end if;
 
                   case Switches.Kind is

diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb
index eece34c9f6a03a03b675170c076e003a86d32a91..5dbb7e036dcec5edcc50c43488b9a7a8a7ee737b 100644 (file)
--- a/gcc/ada/prj-proc.adb
+++ b/gcc/ada/prj-proc.adb
@@ -27,7 +27,6 @@
 ------------------------------------------------------------------------------
 
 with Errout;   use Errout;
-with GNAT.Case_Util;
 with Namet;    use Namet;
 with Opt;
 with Output;   use Output;
@@ -37,6 +36,7 @@ with Prj.Ext;  use Prj.Ext;
 with Prj.Nmsc; use Prj.Nmsc;
 with Stringt;  use Stringt;
 
+with GNAT.Case_Util;
 with GNAT.HTable;
 
 package body Prj.Proc is
@@ -75,7 +75,7 @@ package body Prj.Proc is
    function Imported_Or_Modified_Project_From
      (Project   : Project_Id;
       With_Name : Name_Id)
-     return Project_Id;
+      return      Project_Id;
    --  Find an imported or modified project of Project whose name is With_Name.
 
    function Package_From
@@ -641,6 +641,7 @@ package body Prj.Proc is
          The_Term := Next_Term (The_Term);
 
       end loop;
+
       return Result;
    end Expression;
 
@@ -682,7 +683,6 @@ package body Prj.Proc is
 
          return Project_Lists.Table (List).Project;
       end if;
-
    end Imported_Or_Modified_Project_From;
 
    ------------------
@@ -1267,7 +1267,6 @@ package body Prj.Proc is
 
          Prj.Nmsc.Ada_Check (Project, Error_Report);
       end if;
-
    end Recursive_Check;
 
    -----------------------