mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-31 12:51:15 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Set missing Parent field of block entity

Browse Source 
gcc/ada/

	* exp_ch9.adb (Expand_N_Accept_Statement): Set Parent of the
	created block entity to the created block statement.
This commit is contained in:
Eric Botcazou 2020-06-11 15:25:44 +02:00 committed by Pierre-Marie de Rodat
parent 8e640a5f32
commit 340375cae9
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/ada/exp_ch9.adb
View File

@ -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