diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 15:52:50 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 15:52:50 +0000 |
| commit | b238a680662674f2e66b553b385cab0f493116f2 (patch) | |
| tree | d7afb43f6a7a7fb5c8256df5ed69d8a4703effcb /gcc/ada/prj-util.adb | |
| parent | 6237e13ad5ebffafd44f220d144598361f81fffb (diff) | |
| download | gcc-b238a680662674f2e66b553b385cab0f493116f2.tar.gz | |
* prj-util.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46546 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-util.adb')
| -rw-r--r-- | gcc/ada/prj-util.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/prj-util.adb b/gcc/ada/prj-util.adb index b772d33de8d..5a0f5a1293b 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; |