From 88e8ceffa86a4a7e27669535dc9d9148fe072c2c Mon Sep 17 00:00:00 2001 From: Yannick Moy Date: Thu, 9 Nov 2017 12:41:10 +0000 Subject: [PATCH] exp_disp.adb (Make_DT): Default initialize Ifaces_List and Ifaces_Comp_List. 2017-11-09 Yannick Moy * exp_disp.adb (Make_DT): Default initialize Ifaces_List and Ifaces_Comp_List. From-SVN: r254576 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/exp_disp.adb | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index acf85c6e9d6..3fd6b40fc0e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2017-11-09 Yannick Moy + + * exp_disp.adb (Make_DT): Default initialize Ifaces_List and + Ifaces_Comp_List. + 2017-11-09 Pascal Obry * 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 cab27bbf043..fd050ca780c 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; -- 2.30.2