diff options
Diffstat (limited to 'gcc/ada/sem_ch10.adb')
| -rw-r--r-- | gcc/ada/sem_ch10.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 3334d1da166..11239f8f233 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -2991,8 +2991,8 @@ package body Sem_Ch10 is -- with_clause on a child unit implies that the implicit with on the -- parent is also private. - if Nkind_In - (Unit (N), N_Package_Declaration, N_Generic_Package_Declaration) + if Nkind_In (Unit (N), N_Package_Declaration, + N_Generic_Package_Declaration) then Set_Private_Present (Withn, Private_Present (Item)); end if; |