* prj-util.adb: Minor reformatting

From-SVN: r46546

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 8fd0cf22cad624138360e5add4f98adf05abc78a..73b860b4d6000c50defd41b83ddf80bd0cfa02d4 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -2,6 +2,10 @@
 
        * prj-util.adb: Minor reformatting
 
+2001-10-26  Robert Dewar <dewar@gnat.com>
+
+       * prj-util.adb: Minor reformatting
+
 2001-10-26  Robert Dewar <dewar@gnat.com>
 
        * prj-attr.adb: Minor reformatting throughout

diff --git a/gcc/ada/prj-util.adb b/gcc/ada/prj-util.adb
index b772d33de8dce192bdb72d9d14beb61464c13314..5a0f5a1293b104adf8488ca0b3d1e6bee6874d38 100644 (file)
--- a/gcc/ada/prj-util.adb
+++ b/gcc/ada/prj-util.adb
@@ -255,7 +255,7 @@ package body Prj.Util is
      (Name                    : Name_Id;
       Attribute_Or_Array_Name : Name_Id;
       In_Package              : Package_Id)
-      return                   Variable_Value
+      return                    Variable_Value
    is
       The_Array     : Array_Element_Id;
       The_Attribute : Variable_Value := Nil_Variable_Value;
@@ -315,11 +315,12 @@ package body Prj.Util is
       return      Array_Element_Id
    is
       Current : Array_Id := In_Arrays;
-      The_Array : Array_Data;
+      The_Array          : Array_Data;
 
    begin
       while Current /= No_Array loop
          The_Array := Arrays.Table (Current);
+
          if The_Array.Name = Name then
             return The_Array.Value;
          else
@@ -341,8 +342,8 @@ package body Prj.Util is
    begin
       while Current /= No_Package loop
          The_Package := Packages.Table (Current);
-         exit when The_Package.Name /= No_Name and then
-           The_Package.Name = Name;
+         exit when The_Package.Name /= No_Name
+           and then The_Package.Name = Name;
          Current := The_Package.Next;
       end loop;