diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-06-11 15:25:44 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-16 05:18:13 -0400 |
| commit | 340375cae9e62db137a1d8231324097e8b6de856 (patch) | |
| tree | 14f6c1621dac02a683061bb73a246f93c47f43fe /gcc/ada | |
| parent | 8e640a5f32160fd786cc4722c8b46bbca7ba500a (diff) | |
| download | gcc-340375cae9e62db137a1d8231324097e8b6de856.zip gcc-340375cae9e62db137a1d8231324097e8b6de856.tar.gz gcc-340375cae9e62db137a1d8231324097e8b6de856.tar.bz2 | |
[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.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 2c3e9d8..001aa4b 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 |