diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 6015993..fa1a89a 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -2292,8 +2292,11 @@ package body Exp_Ch6 is null; elsif Is_Build_In_Place_Function_Call (Actual) then - Build_Activation_Chain_Entity (N); - Build_Master_Entity (Etype (Actual)); + if Might_Have_Tasks (Etype (Actual)) then + Build_Activation_Chain_Entity (N); + Build_Master_Entity (Etype (Actual)); + end if; + Make_Build_In_Place_Call_In_Anonymous_Context (Actual); -- Ada 2005 (AI-318-02): Specialization of the previous case for |