From: pmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 11 Dec 2018 11:11:53 +0000 (+0000)
Subject: [Ada] Unnesting: ensure Current_Subprogram is always initialized
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c4edda1b12a799dba9e92a689f534c5ad761d8a4;p=thirdparty%2Fgcc.git

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@267009 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1fd528ccaf57..7f020e39b56a 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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>
 
 	* gcc-interface/decl.c (gnat_to_gnu_entity): Add
diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb
index 57b2a9e190c6..f8c8fd56be11 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.