git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

[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
This commit is contained in:
Arnaud Charlet 2018-12-11 11:11:53 +00:00 committed by Pierre-Marie de Rodat
parent f2bee23951
commit 2ffa39d247
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2018-12-11 Arnaud Charlet <charlet@adacore.com>
* exp_unst.adb (Unnest_Subprogram): Ensure Current_Subprogram is
always initialized.
2018-12-11 Eric Botcazou <ebotcazou@adacore.com> 2018-12-11 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity): Add * gcc-interface/decl.c (gnat_to_gnu_entity): Add

2
gcc/ada/exp_unst.adb
View File

@ -440,7 +440,7 @@ package body Exp_Unst is
Urefs.Init; Urefs.Init;
Build_Tables : declare Build_Tables : declare
Current_Subprogram : Entity_Id; Current_Subprogram : Entity_Id := Empty;
-- When we scan a subprogram body, we set Current_Subprogram to the -- When we scan a subprogram body, we set Current_Subprogram to the
-- corresponding entity. This gets recursively saved and restored. -- corresponding entity. This gets recursively saved and restored.