diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2013-02-06 10:28:26 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-02-06 11:28:26 +0100 |
| commit | ca4a4fe903f536b400f1708437a69df637cf2c7f (patch) | |
| tree | 3384c37d21c3218cd5ede927dae9ac0a8477ffe1 /gcc | |
| parent | d7ffe14c000af9bf1f63f8fbfb5a6511bbf66392 (diff) | |
| download | gcc-ca4a4fe903f536b400f1708437a69df637cf2c7f.zip gcc-ca4a4fe903f536b400f1708437a69df637cf2c7f.tar.gz gcc-ca4a4fe903f536b400f1708437a69df637cf2c7f.tar.bz2 | |
sem_ch3.adb (Complete_Private_Subtype): Inherit the Has_Unknown_Discriminants from the full view of the base type.
2013-02-06 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch3.adb (Complete_Private_Subtype): Inherit the
Has_Unknown_Discriminants from the full view of the base type.
From-SVN: r195795
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 15 |
2 files changed, 13 insertions, 7 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 3d7dbfd..ccc6b85 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2013-02-06 Hristian Kirtchev <kirtchev@adacore.com> + + * sem_ch3.adb (Complete_Private_Subtype): Inherit the + Has_Unknown_Discriminants from the full view of the base type. + 2013-02-06 Tristan Gingold <gingold@adacore.com> * raise-gcc.c: Remove useless includes (sys/stat.h, adaint.h) diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 532b2b2..224a3d9 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -10255,15 +10255,17 @@ package body Sem_Ch3 is Protected_Kind => Copy_Node (Priv, Full); - Set_Has_Discriminants (Full, Has_Discriminants (Full_Base)); - Set_First_Entity (Full, First_Entity (Full_Base)); - Set_Last_Entity (Full, Last_Entity (Full_Base)); + Set_Has_Discriminants (Full, Has_Discriminants (Full_Base)); + Set_Has_Unknown_Discriminants + (Full, Has_Unknown_Discriminants (Full_Base)); + Set_First_Entity (Full, First_Entity (Full_Base)); + Set_Last_Entity (Full, Last_Entity (Full_Base)); when others => Copy_Node (Full_Base, Full); - Set_Chars (Full, Chars (Priv)); - Conditional_Delay (Full, Priv); - Set_Sloc (Full, Sloc (Priv)); + Set_Chars (Full, Chars (Priv)); + Conditional_Delay (Full, Priv); + Set_Sloc (Full, Sloc (Priv)); end case; Set_Next_Entity (Full, Save_Next_Entity); @@ -17388,7 +17390,6 @@ package body Sem_Ch3 is if Is_Private_Type (Id_B) then Append_Elmt (Id, Private_Dependents (Id_B)); end if; - end Prepare_Private_Subtype_Completion; --------------------------- |