diff options
| author | Robert Dewar <dewar@gnat.com> | 2001-10-26 15:52:50 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-26 17:52:50 +0200 |
| commit | b403bd177c82c7ec36f72c07caa0f08bf5a49d93 (patch) | |
| tree | d7afb43f6a7a7fb5c8256df5ed69d8a4703effcb | |
| parent | a160babb35e4d88d6bf6c50e6f5feb6d350d65d3 (diff) | |
| download | gcc-b403bd177c82c7ec36f72c07caa0f08bf5a49d93.zip gcc-b403bd177c82c7ec36f72c07caa0f08bf5a49d93.tar.gz gcc-b403bd177c82c7ec36f72c07caa0f08bf5a49d93.tar.bz2 | |
* prj-util.adb: Minor reformatting
From-SVN: r46546
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/prj-util.adb | 9 |
2 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 8fd0cf2..73b860b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -4,6 +4,10 @@ 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 2001-10-26 Robert Dewar <dewar@gnat.com> diff --git a/gcc/ada/prj-util.adb b/gcc/ada/prj-util.adb index b772d33..5a0f5a1 100644 --- 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; |