OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* prj-util.adb: Minor reformatting

Browse Source 
From-SVN: r46546
This commit is contained in:
Robert Dewar 2001-10-26 15:52:50 +00:00 committed by Geert Bosch
parent a160babb35
commit b403bd177c
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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

9
gcc/ada/prj-util.adb
View File

@ -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;