From bf78529db49856d6af45d95b39c4f67ec3366407 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 1 Nov 2017 06:24:11 +0100 Subject: rti: handle more unbounded record Fix #418 --- src/grt/grt-disp_rti.adb | 6 ++++-- src/grt/grt-rtis_utils.adb | 3 ++- 2 files changed, 6 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/grt/grt-disp_rti.adb b/src/grt/grt-disp_rti.adb index 9ce17ed91..7440480da 100644 --- a/src/grt/grt-disp_rti.adb +++ b/src/grt/grt-disp_rti.adb @@ -309,7 +309,8 @@ package body Grt.Disp_Rti is -- FIXME: update OBJ (not very useful since never in a -- composite type). end; - when Ghdl_Rtik_Type_Record => + when Ghdl_Rtik_Type_Record + | Ghdl_Rtik_Type_Unbounded_Record => Disp_Record_Value (Stream, To_Ghdl_Rtin_Type_Record_Acc (Rti), Ctxt, Obj, Bounds, Is_Sig); @@ -661,7 +662,8 @@ package body Grt.Disp_Rti is when Ghdl_Rtik_Type_File | Ghdl_Rtik_Type_Access => Disp_Name (To_Ghdl_Rtin_Type_Fileacc_Acc (Def).Name); - when Ghdl_Rtik_Type_Record => + when Ghdl_Rtik_Type_Record + | Ghdl_Rtik_Type_Unbounded_Record => Disp_Name (To_Ghdl_Rtin_Type_Record_Acc (Def).Name); when Ghdl_Rtik_Subtype_Record => declare diff --git a/src/grt/grt-rtis_utils.adb b/src/grt/grt-rtis_utils.adb index 2c603106f..695de7315 100644 --- a/src/grt/grt-rtis_utils.adb +++ b/src/grt/grt-rtis_utils.adb @@ -416,7 +416,8 @@ package body Grt.Rtis_Utils is -- -- FIXME: update OBJ (not very useful since never in a -- -- composite type). -- end; - when Ghdl_Rtik_Type_Record => + when Ghdl_Rtik_Type_Record + | Ghdl_Rtik_Type_Unbounded_Record => Handle_Record (To_Ghdl_Rtin_Type_Record_Acc (Rti)); when Ghdl_Rtik_Subtype_Record => declare -- cgit v1.2.3