From 74e514af79c4e01a6ff7fab4b7c7a79cad058c3c Mon Sep 17 00:00:00 2001 From: Etienne Servais Date: Wed, 22 Sep 2021 17:20:27 +0200 Subject: [Ada] Build activation chain for BIP only when needed gcc/ada/ * exp_ch6.adb (Expand_Actuals): Add a condition to check for the possibility of task. --- gcc/ada/exp_ch6.adb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'gcc') 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 -- cgit v1.1