From 340375cae9e62db137a1d8231324097e8b6de856 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 11 Jun 2020 15:25:44 +0200 Subject: [PATCH] [Ada] Set missing Parent field of block entity gcc/ada/ * exp_ch9.adb (Expand_N_Accept_Statement): Set Parent of the created block entity to the created block statement. --- gcc/ada/exp_ch9.adb | 1 + 1 file changed, 1 insertion(+) diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 2c3e9d8df80..001aa4b77d4 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -6660,6 +6660,7 @@ package body Exp_Ch9 is -- must be properly set. Set_Parent (Block, Parent (N)); + Set_Parent (Blkent, Block); -- Prepend call to Accept_Call to main statement sequence If the -- accept has exception handlers, the statement sequence is wrapped -- 2.30.2