diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-24 16:38:50 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-24 16:38:50 +0200 |
| commit | 24778dbb9a732e8c626807b1a5f4bfe8cec09a58 (patch) | |
| tree | 5d9560ad2ff07bd6a8cc33c873fd6dcf04cff4a0 /gcc/ada/sem_ch3.adb | |
| parent | 8a8ac7e3bd0d316ec3f809e29574e9900847d26a (diff) | |
| download | gcc-24778dbb9a732e8c626807b1a5f4bfe8cec09a58.zip gcc-24778dbb9a732e8c626807b1a5f4bfe8cec09a58.tar.gz gcc-24778dbb9a732e8c626807b1a5f4bfe8cec09a58.tar.bz2 | |
[multiple changes]
2013-04-24 Ed Schonberg <schonberg@adacore.com>
* sem_ch7.adb (Swap_Private_Dependents): New internal routine
to Install_Private_Declarations, to make the installation of
private dependents recursive in the presence of child units.
* sem_ch3.adb (Build_Discriminated_Subtype): Initialize properly
the Private_Dependents of a private subtype.
2013-04-24 Hristian Kirtchev <kirtchev@adacore.com>
* exp_attr.adb (Expand_Loop_Entry_Attribute): Update the
retrieval of the block declarations.
* par-ch4.adb (P_Name): Let the name parsing machinery create
a sequence of nested indexed components for attribute Loop_Entry.
* sem_attr.adb (Analyze_Attribute): Add local constant
Context. Reimplement part of the analysis of attribute Loop_Entry.
(Convert_To_Indexed_Component): Removed.
* sem_ch4.adb (Analyze_Indexed_Component_Form): Do not analyze
an indexed component after it has been rewritten into attribute
Loop_Entry.
From-SVN: r198240
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index af2cc23..8e874af 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -8659,6 +8659,10 @@ package body Sem_Ch3 is Set_Known_To_Have_Preelab_Init (Def_Id, Known_To_Have_Preelab_Init (T)); + -- private subtypes may have private dependents. + + Set_Private_Dependents (Def_Id, New_Elmt_List); + elsif Is_Class_Wide_Type (T) then Set_Ekind (Def_Id, E_Class_Wide_Subtype); |