From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id A0D6F385840D; Wed, 1 Dec 2021 10:26:40 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org A0D6F385840D MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-5672] [Ada] Do not free task for _parent X-Act-Checkin: gcc X-Git-Author: Ghjuvan Lacambre X-Git-Refname: refs/heads/master X-Git-Oldrev: b940999de44208a0659d9441393fa3f62be24f28 X-Git-Newrev: e3102ec09c9b7e58312f3c18c841679db5778458 Message-Id: <20211201102640.A0D6F385840D@sourceware.org> Date: Wed, 1 Dec 2021 10:26:40 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 01 Dec 2021 10:26:40 -0000 https://gcc.gnu.org/g:e3102ec09c9b7e58312f3c18c841679db5778458 commit r12-5672-ge3102ec09c9b7e58312f3c18c841679db5778458 Author: Ghjuvan Lacambre Date: Tue Nov 16 12:19:13 2021 +0100 [Ada] Do not free task for _parent gcc/ada/ * exp_ch7.adb (Cleanup_Record): Don't process parent. Diff: --- gcc/ada/exp_ch7.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index cd9ff214e25..68d1da9e5cb 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -4629,8 +4629,9 @@ package body Exp_Ch7 is Comp := First_Component (U_Typ); while Present (Comp) loop - if Has_Task (Etype (Comp)) - or else Has_Simple_Protected_Object (Etype (Comp)) + if Chars (Comp) /= Name_uParent + and then (Has_Task (Etype (Comp)) + or else Has_Simple_Protected_Object (Etype (Comp))) then Tsk := Make_Selected_Component (Loc,