From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 11 Jun 2020 13:25:44 +0000 (+0200)
Subject: [Ada] Set missing Parent field of block entity
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=340375cae9e62db137a1d8231324097e8b6de856;p=gcc.git

[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.
---

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