diff options
Diffstat (limited to 'gcc/ada/sem_ch9.adb')
| -rw-r--r-- | gcc/ada/sem_ch9.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb index b7374ba..316a163 100644 --- a/gcc/ada/sem_ch9.adb +++ b/gcc/ada/sem_ch9.adb @@ -1326,7 +1326,7 @@ package body Sem_Ch9 is -- for the discriminals and privals and finally a declaration for the -- entry family index (if applicable). - if Full_Expander_Active + if Expander_Active and then Is_Protected_Type (P_Type) then Install_Private_Data_Declarations @@ -2142,7 +2142,7 @@ package body Sem_Ch9 is -- Also skip if expander is not active - and then Full_Expander_Active + and then Expander_Active then Expand_N_Protected_Type_Declaration (N); Process_Full_View (N, T, Def_Id); @@ -2990,7 +2990,7 @@ package body Sem_Ch9 is -- Also skip if expander is not active - and then Full_Expander_Active + and then Expander_Active then Expand_N_Task_Type_Declaration (N); Process_Full_View (N, T, Def_Id); |