This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Minor reformatting in prj-util.adb
- To: gcc-patches at gcc dot gnu dot org
- Subject: [Ada] Minor reformatting in prj-util.adb
- From: bosch at gnat dot com
- Date: Fri, 26 Oct 2001 11:52:27 -0400 (EDT)
2001-10-26 Robert Dewar <dewar@gnat.com>
* prj-util.adb: Minor reformatting
*** prj-util.adb 2001/09/25 03:16:28 1.9
--- prj-util.adb 2001/09/28 09:57:09 1.10
***************
*** 238,244 ****
(Name : Name_Id;
Attribute_Or_Array_Name : Name_Id;
In_Package : Package_Id)
! return Variable_Value
is
The_Array : Array_Element_Id;
The_Attribute : Variable_Value := Nil_Variable_Value;
--- 238,244 ----
(Name : Name_Id;
Attribute_Or_Array_Name : Name_Id;
In_Package : Package_Id)
! return Variable_Value
is
The_Array : Array_Element_Id;
The_Attribute : Variable_Value := Nil_Variable_Value;
***************
*** 298,308 ****
return Array_Element_Id
is
Current : Array_Id := In_Arrays;
! 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
--- 298,309 ----
return Array_Element_Id
is
Current : Array_Id := In_Arrays;
! 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
***************
*** 324,331 ****
begin
while Current /= No_Package loop
The_Package := Packages.Table (Current);
! exit when The_Package.Name /= No_Name and then
! The_Package.Name = Name;
Current := The_Package.Next;
end loop;
--- 325,332 ----
begin
while Current /= No_Package loop
The_Package := Packages.Table (Current);
! exit when The_Package.Name /= No_Name
! and then The_Package.Name = Name;
Current := The_Package.Next;
end loop;