mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-04 02:50:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

lib-load.adb: MInor reformatting

Browse Source 
2009-04-22  Robert Dewar  <dewar@adacore.com>

	* lib-load.adb: MInor reformatting

	* lib-load.ads: Minor reformatting

	* sinfo.ads: Minor reformatting

From-SVN: r146557
This commit is contained in:
Robert Dewar 2009-04-22 09:50:01 +00:00 committed by Arnaud Charlet
parent 218e53ff25
commit 1cb46af046
4 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/ChangeLog
View File

@ -1,3 +1,11 @@
2009-04-22 Robert Dewar <dewar@adacore.com>
* lib-load.adb: MInor reformatting
* lib-load.ads: Minor reformatting
* sinfo.ads: Minor reformatting
2009-04-22 Bob Duff <duff@adacore.com>
* exp_pakd.adb: Minor comment fixes.

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

@ -768,6 +768,7 @@ package body Lib.Load is
procedure Make_Instance_Unit (N : Node_Id; In_Main : Boolean) is
Sind : constant Source_File_Index := Source_Index (Main_Unit);
begin
Units.Increment_Last;
@ -782,9 +783,11 @@ package body Lib.Load is
Units.Table (Main_Unit).Version := Source_Checksum (Sind);
else
-- Duplicate information from instance unit, for the body.
Units.Table (Units.Last) :=
Units.Table (Get_Cunit_Unit_Number (Library_Unit (N)));
-- Duplicate information from instance unit, for the body
-- The unit node N has been rewritten as a body, but it was placed
-- in the units table when first loaded as a declaration.
Units.Table (Units.Last) := Units.Table (Get_Cunit_Unit_Number (N));
Units.Table (Units.Last).Cunit := N;
end if;
end Make_Instance_Unit;

1
gcc/ada/lib-load.ads
View File

@ -176,6 +176,7 @@ package Lib.Load is
-- We create an additional entry for the body, so that the binder can
-- generate the proper elaboration calls to both. The argument N is the
-- compilation unit node created for the body.
--
-- If the instance is not the main program, we still generate the instance
-- body even though we do not generate code for it. In that case we still
-- generate a compilation unit node for it, and we need to make an entry

4
gcc/ada/sinfo.ads
View File

@ -33,8 +33,8 @@
-- package provides a basic tree structure. Sinfo describes how this structure
-- is used to represent the syntax of an Ada program.
-- The grammar in the RM is followed very closely in the tree
-- design, and is repeated as part of this source file.
-- The grammar in the RM is followed very closely in the tree design, and is
-- repeated as part of this source file.
-- The tree contains not only the full syntactic representation of the
-- program, but also the results of semantic analysis. In particular, the