diff options
Diffstat (limited to 'gcc/ada/sem_ch10.adb')
| -rw-r--r-- | gcc/ada/sem_ch10.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index ee2ab6300cd..1c9fd26bbb9 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -4028,7 +4028,7 @@ package body Sem_Ch10 is Is_Private_Descendant (P_Name) or else Private_Present (Parent (Lib_Unit))); - P_Spec := Specification (Unit_Declaration_Node (P_Name)); + P_Spec := Package_Specification (P_Name); Push_Scope (P_Name); -- Save current visibility of unit |