diff options
Diffstat (limited to 'gcc/ada/sem_ch10.adb')
-rw-r--r-- | gcc/ada/sem_ch10.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 6475bdde1dc..a67acb5539f 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -3829,11 +3829,14 @@ package body Sem_Ch10 is -- immediately visible. -- Find entity for compilation unit, and set its private descendant - -- status as needed. + -- status as needed. Indicate that it is a compilation unit, which is + -- redundant in general, but needed if this is a generated child spec + -- for a child body without previous spec. E_Name := Defining_Entity (Lib_Unit); Set_Is_Child_Unit (E_Name); + Set_Is_Compilation_Unit (E_Name); Set_Is_Private_Descendant (E_Name, Is_Private_Descendant (P_Name) |