diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-05 15:10:50 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-05 15:10:50 +0000 |
| commit | 651a38ec1da7e653b99f6a8dd0ffe393eada459f (patch) | |
| tree | dbf7d77eccd6d83effd5cc41a4d0d61e74a759c3 /gcc/ada/sem_ch3.adb | |
| parent | 5d740b7e88bc2248d26f2d9923665e7a76857e30 (diff) | |
| download | ppe42-gcc-651a38ec1da7e653b99f6a8dd0ffe393eada459f.tar.gz ppe42-gcc-651a38ec1da7e653b99f6a8dd0ffe393eada459f.zip | |
2011-08-05 Robert Dewar <dewar@adacore.com>
* par_sco.adb, sem_ch3.adb, scos.ads, a-iteint.ads, sem_ch12.adb,
a-cimutr.adb, a-cimutr.ads, sem_util.ads, sem_res.adb, a-fihema.adb,
sem_ch4.adb, lib-xref-alfa.adb, exp_disp.adb, a-comutr.adb,
a-comutr.ads, lib-xref.adb: Minor reformatting.
2011-08-05 Robert Dewar <dewar@adacore.com>
* sem_ch11.adb (Analyze_Raise_Statement): Kill assignment to formal
warning if there is an exception handler present.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177451 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index c0187d7a2dc..ea54583e718 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -4243,24 +4243,24 @@ package body Sem_Ch3 is end if; when Private_Kind => - Set_Ekind (Id, Subtype_Kind (Ekind (T))); - Set_Has_Discriminants (Id, Has_Discriminants (T)); - Set_Is_Constrained (Id, Is_Constrained (T)); - Set_First_Entity (Id, First_Entity (T)); - Set_Last_Entity (Id, Last_Entity (T)); + Set_Ekind (Id, Subtype_Kind (Ekind (T))); + Set_Has_Discriminants (Id, Has_Discriminants (T)); + Set_Is_Constrained (Id, Is_Constrained (T)); + Set_First_Entity (Id, First_Entity (T)); + Set_Last_Entity (Id, Last_Entity (T)); Set_Private_Dependents (Id, New_Elmt_List); - Set_Is_Limited_Record (Id, Is_Limited_Record (T)); + Set_Is_Limited_Record (Id, Is_Limited_Record (T)); Set_Has_Implicit_Dereference - (Id, Has_Implicit_Dereference (T)); + (Id, Has_Implicit_Dereference (T)); Set_Has_Unknown_Discriminants - (Id, Has_Unknown_Discriminants (T)); + (Id, Has_Unknown_Discriminants (T)); Set_Known_To_Have_Preelab_Init (Id, Known_To_Have_Preelab_Init (T)); if Is_Tagged_Type (T) then Set_Is_Tagged_Type (Id); Set_Is_Abstract_Type (Id, Is_Abstract_Type (T)); - Set_Class_Wide_Type (Id, Class_Wide_Type (T)); + Set_Class_Wide_Type (Id, Class_Wide_Type (T)); Set_Direct_Primitive_Operations (Id, Direct_Primitive_Operations (T)); end if; @@ -4273,14 +4273,14 @@ package body Sem_Ch3 is if Has_Discriminants (T) then Set_Discriminant_Constraint - (Id, Discriminant_Constraint (T)); + (Id, Discriminant_Constraint (T)); Set_Stored_Constraint_From_Discriminant_Constraint (Id); elsif Present (Full_View (T)) and then Has_Discriminants (Full_View (T)) then Set_Discriminant_Constraint - (Id, Discriminant_Constraint (Full_View (T))); + (Id, Discriminant_Constraint (Full_View (T))); Set_Stored_Constraint_From_Discriminant_Constraint (Id); -- This would seem semantically correct, but apparently |
