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> 2009-07-15 Robert Dewar <dewar@adacore.com>
* par.adb: Minor reformatting * par.adb: Minor reformatting

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

@ -396,7 +396,7 @@ package body Lib.Load is
begin begin
while Nkind (Par) = N_Selected_Component while Nkind (Par) = N_Selected_Component
and then Chars (Selector_Name (Par)) /= and then Chars (Selector_Name (Par)) /=
Chars (Cunit_Entity (Unump)) Chars (Cunit_Entity (Unump))
loop loop
Par := Prefix (Par); Par := Prefix (Par);
end loop; end loop;
@ -694,6 +694,9 @@ package body Lib.Load is
-- Remove load stack entry and return the entry in the file table -- Remove load stack entry and return the entry in the file table
Load_Stack.Decrement_Last; Load_Stack.Decrement_Last;
-- All done, return unit number
return Unum; return Unum;
-- Case of file not found -- 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 loop;
end; end;
-- Output cross-reference information -- Output cross-references
Write_Info_Terminate;
Output_References; Output_References;
-- Output SCO information if present -- Output SCO information if present
if Generate_SCO then if Generate_SCO then
Write_Info_Terminate;
SCO_Output; SCO_Output;
end if; 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; Close_Output_Library_Info;
end Write_ALI; end Write_ALI;