lib-load.adb: Minor reformatting

2009-07-15  Robert Dewar  <dewar@adacore.com>

	* lib-load.adb: Minor reformatting

	* lib-writ.adb (Write_ALI): Fix handling of SCO_Output wrt Generate_SCO.

From-SVN: r149678

gcc/ada/ChangeLog

 2009-07-15  Robert Dewar  <dewar@adacore.com>
 
+	* lib-load.adb: Minor reformatting
+
+	* lib-writ.adb (Write_ALI): Fix handling of SCO_Output wrt Generate_SCO.
+
+2009-07-15  Robert Dewar  <dewar@adacore.com>
+
 	* par.adb: Minor reformatting
 	Add ??? comment for possible bad comment
 

gcc/ada/lib-load.adb

@@ -396,7 +396,7 @@ package body Lib.Load is
                begin
                   while Nkind (Par) = N_Selected_Component
                     and then Chars (Selector_Name (Par)) /=
-                      Chars (Cunit_Entity (Unump))
+                             Chars (Cunit_Entity (Unump))
                   loop
                      Par := Prefix (Par);
                   end loop;
@@ -694,6 +694,9 @@ package body Lib.Load is
             --  Remove load stack entry and return the entry in the file table
 
             Load_Stack.Decrement_Last;
+
+            --  All done, return unit number
+
             return Unum;
 
          --  Case of file not found

gcc/ada/lib-writ.adb

@@ -1230,20 +1230,20 @@ package body Lib.Writ is
          end loop;
       end;
 
-      --  Output cross-reference information
+      --  Output cross-references
 
-      Write_Info_Terminate;
       Output_References;
 
       --  Output SCO information if present
 
       if Generate_SCO then
-         Write_Info_Terminate;
          SCO_Output;
       end if;
 
-      --  Output of ALI file is complete
+      --  Output final blank line and we are done. This final blank line is
+      --  probably junk, but we don't feel like making an incompatible change!
 
+      Write_Info_Terminate;
       Close_Output_Library_Info;
    end Write_ALI;