OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sem_ch3.adb, [...]: Minor reformatting. 

2010-06-22  Robert Dewar  <dewar@adacore.com>

	* sem_ch3.adb, sem_ch8.adb: Minor reformatting.

From-SVN: r161198
This commit is contained in:
Robert Dewar 2010-06-22 15:54:12 +00:00 committed by Arnaud Charlet
parent 1a0f3fa137
commit c42bfef297
3 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2010-06-22 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_ch8.adb: Minor reformatting.
2010-06-22 Thomas Quinot <quinot@adacore.com>
* sem_elab.adb: Minor reformatting.

2
gcc/ada/sem_ch3.adb
View File

@ -6782,7 +6782,7 @@ package body Sem_Ch3 is
-- (see also non-discriminated case below).
if Present (Record_Extension_Part (Type_Def))
or else Is_Interface (Parent_Base)
or else Is_Interface (Parent_Base)
then
Freeze_Before (New_Decl, Parent_Type);
end if;

13
gcc/ada/sem_ch8.adb
View File

@ -398,9 +398,9 @@ package body Sem_Ch8 is
-- must be added to the list of actuals in any subsequent call.
function Applicable_Use (Pack_Name : Node_Id) return Boolean;
-- Common code to Use_One_Package and Set_Use, to determine whether
-- use clause must be processed. Pack_Name is an entity name that
-- references the package in question.
-- Common code to Use_One_Package and Set_Use, to determine whether use
-- clause must be processed. Pack_Name is an entity name that references
-- the package in question.
procedure Attribute_Renaming (N : Node_Id);
-- Analyze renaming of attribute as subprogram. The renaming declaration N
@ -408,10 +408,9 @@ package body Sem_Ch8 is
-- applied to the formals of the function.
procedure Set_Entity_Or_Discriminal (N : Node_Id; E : Entity_Id);
-- Set Entity, with style check if need be. For a discriminant
-- reference, replace by the corresponding discriminal, i.e. the
-- parameter of the initialization procedure that corresponds to
-- the discriminant.
-- Set Entity, with style check if need be. For a discriminant reference,
-- replace by the corresponding discriminal, i.e. the parameter of the
-- initialization procedure that corresponds to the discriminant.
procedure Check_Frozen_Renaming (N : Node_Id; Subp : Entity_Id);
-- A renaming_as_body may occur after the entity of the original decla-