This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

[Ada] Minor reformatting in prj-util.adb


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;
  


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]