From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id 693F2385740B; Tue, 17 May 2022 08:28:59 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 693F2385740B 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 r13-539] [Ada] Fix small glitch in Expand_N_Full_Type_Declaration X-Act-Checkin: gcc X-Git-Author: Eric Botcazou X-Git-Refname: refs/heads/master X-Git-Oldrev: 80d1067508d7cdfa765c93df1737015c07c7f11d X-Git-Newrev: 42fe7c9a809198b50070eb9033ba2be1447519b9 Message-Id: <20220517082859.693F2385740B@sourceware.org> Date: Tue, 17 May 2022 08:28:59 +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: Tue, 17 May 2022 08:28:59 -0000 https://gcc.gnu.org/g:42fe7c9a809198b50070eb9033ba2be1447519b9 commit r13-539-g42fe7c9a809198b50070eb9033ba2be1447519b9 Author: Eric Botcazou Date: Wed Mar 23 23:47:06 2022 +0100 [Ada] Fix small glitch in Expand_N_Full_Type_Declaration The original node is not guaranteed to also be an N_Full_Type_Declaration, so the code needs to look into the node itself. gcc/ada/ * exp_ch3.adb (Expand_N_Full_Type_Declaration): Look into N. Diff: --- gcc/ada/exp_ch3.adb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index f2deff74522..4216fecc438 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -6102,8 +6102,7 @@ package body Exp_Ch3 is Par_Id := Base_Type (Full_View (Par_Id)); end if; - if Nkind (Type_Definition (Original_Node (N))) = - N_Derived_Type_Definition + if Nkind (Type_Definition (N)) = N_Derived_Type_Definition and then not Is_Tagged_Type (Def_Id) and then Present (Freeze_Node (Par_Id)) and then Present (TSS_Elist (Freeze_Node (Par_Id)))