From: Yannick Moy <moy@adacore.com>
Date: Thu, 9 Nov 2017 12:41:10 +0000 (+0000)
Subject: exp_disp.adb (Make_DT): Default initialize Ifaces_List and Ifaces_Comp_List.
X-Git-Tag: basepoints/gcc-9~3511
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=88e8ceffa86a4a7e27669535dc9d9148fe072c2c;p=thirdparty%2Fgcc.git

exp_disp.adb (Make_DT): Default initialize Ifaces_List and Ifaces_Comp_List.

2017-11-09  Yannick Moy  <moy@adacore.com>

	* exp_disp.adb (Make_DT): Default initialize Ifaces_List and
	Ifaces_Comp_List.

From-SVN: r254576
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index acf85c6e9d64..3fd6b40fc0e5 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2017-11-09  Yannick Moy  <moy@adacore.com>
+
+	* exp_disp.adb (Make_DT): Default initialize Ifaces_List and
+	Ifaces_Comp_List.
+
 2017-11-09  Pascal Obry  <obry@adacore.com>
 
 	* libgnarl/s-taprop__mingw.adb: On Windows, initialize the thead handle
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb
index cab27bbf0436..fd050ca780cc 100644
--- a/gcc/ada/exp_disp.adb
+++ b/gcc/ada/exp_disp.adb
@@ -5516,8 +5516,8 @@ package body Exp_Disp is
             declare
                TSD_Ifaces_List  : constant List_Id := New_List;
                Elmt             : Elmt_Id;
-               Ifaces_List      : Elist_Id;
-               Ifaces_Comp_List : Elist_Id;
+               Ifaces_List      : Elist_Id := No_Elist;
+               Ifaces_Comp_List : Elist_Id := No_Elist;
                Ifaces_Tag_List  : Elist_Id;
                Offset_To_Top    : Node_Id;
                Sec_DT_Tag       : Node_Id;