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 acf85c6e9d64073089c8ce540f1505b202913a25..3fd6b40fc0e5524619c0bde7efa305a89f361b1a 100644 (file)
--- 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 cab27bbf0436025ab874108d4eb743dcf59780f4..fd050ca780cc7913bfad47481b6729fdfb6029d8 100644 (file)
--- 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;