diff options
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 34c063d3c97..c1cd42d2950 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -15003,6 +15003,12 @@ package body Sem_Ch3 is Set_Has_Private_Declaration (Prev); Set_Has_Private_Declaration (Id); + -- Preserve aspect and iterator flags, that may have been + -- set on the partial view. + + Set_Has_Delayed_Aspects (Prev, Has_Delayed_Aspects (Id)); + Set_Has_Implicit_Dereference (Prev, Has_Implicit_Dereference (Id)); + -- If no error, propagate freeze_node from private to full view. -- It may have been generated for an early operational item. |