diff options
-rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/ada/lib-load.adb | 5 | ||||
-rw-r--r-- | gcc/ada/lib-writ.adb | 8 |
3 files changed, 14 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index b52756a797c..c9994b98109 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,11 @@ 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 diff --git a/gcc/ada/lib-load.adb b/gcc/ada/lib-load.adb index ee956dc3f77..535dddc6e8b 100644 --- a/gcc/ada/lib-load.adb +++ b/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 diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index 01f92d1e20a..94d4b455526 100644 --- a/gcc/ada/lib-writ.adb +++ b/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; |