From 21bb8f31d2af6f9d357aed1bd66114826bea041a Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 6 Feb 2013 10:28:26 +0000 Subject: [PATCH] 2013-02-06 Hristian Kirtchev * sem_ch3.adb (Complete_Private_Subtype): Inherit the Has_Unknown_Discriminants from the full view of the base type. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@195795 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 5 +++++ 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 + + * sem_ch3.adb (Complete_Private_Subtype): Inherit the + Has_Unknown_Discriminants from the full view of the base type. + 2013-02-06 Tristan Gingold * 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; --------------------------- -- 2.7.4