diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2018-12-11 11:11:53 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-12-11 11:11:53 +0000 |
| commit | 2ffa39d24733c209d32cc6b2cb87f4d38d8198a9 (patch) | |
| tree | 91d0be03c794cb5ef99cf03fdb8d6b770bb8bab1 /gcc/ada/exp_unst.adb | |
| parent | f2bee2395180f0e45177ccdd92dca8f327679e46 (diff) | |
| download | gcc-2ffa39d24733c209d32cc6b2cb87f4d38d8198a9.zip gcc-2ffa39d24733c209d32cc6b2cb87f4d38d8198a9.tar.gz gcc-2ffa39d24733c209d32cc6b2cb87f4d38d8198a9.tar.bz2 | |
[Ada] Unnesting: ensure Current_Subprogram is always initialized
2018-12-11 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* exp_unst.adb (Unnest_Subprogram): Ensure Current_Subprogram is
always initialized.
From-SVN: r267009
Diffstat (limited to 'gcc/ada/exp_unst.adb')
| -rw-r--r-- | gcc/ada/exp_unst.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index 57b2a9e..f8c8fd5 100644 --- a/gcc/ada/exp_unst.adb +++ b/gcc/ada/exp_unst.adb @@ -440,7 +440,7 @@ package body Exp_Unst is Urefs.Init; Build_Tables : declare - Current_Subprogram : Entity_Id; + Current_Subprogram : Entity_Id := Empty; -- When we scan a subprogram body, we set Current_Subprogram to the -- corresponding entity. This gets recursively saved and restored. |