git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Robert Dewar 2009-07-15 10:34:59 +00:00 committed by Arnaud Charlet
parent 8aaeba8ffa
commit 671eb58697
3 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
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

5
gcc/ada/lib-load.adb
View File

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

8
gcc/ada/lib-writ.adb
View File

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