diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-06-22 15:54:12 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 17:54:12 +0200 |
| commit | c42bfef297354c8859e97ca7c3f32b0899b52f67 (patch) | |
| tree | 15029a51b52d45ea8c093892c0306a86005a5d78 /gcc | |
| parent | 1a0f3fa13745c4052c53e6d84c64539fb5f57e00 (diff) | |
| download | gcc-c42bfef297354c8859e97ca7c3f32b0899b52f67.zip gcc-c42bfef297354c8859e97ca7c3f32b0899b52f67.tar.gz gcc-c42bfef297354c8859e97ca7c3f32b0899b52f67.tar.bz2 | |
sem_ch3.adb, [...]: Minor reformatting.
2010-06-22 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_ch8.adb: Minor reformatting.
From-SVN: r161198
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 13 |
3 files changed, 11 insertions, 8 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a7a0e64..373ef18 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -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. diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index f1aaf61..c71e69d 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -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; diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 374cfa7..370e2d6 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -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- |