diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-01 06:24:11 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-01 06:24:11 +0100 |
| commit | bf78529db49856d6af45d95b39c4f67ec3366407 (patch) | |
| tree | 5fe39f84068819768201beef1c63517c410dac0f /src | |
| parent | f64107122c06f913a7f44e01acb993c9f8cb6951 (diff) | |
| download | ghdl-bf78529db49856d6af45d95b39c4f67ec3366407.tar.gz ghdl-bf78529db49856d6af45d95b39c4f67ec3366407.tar.bz2 ghdl-bf78529db49856d6af45d95b39c4f67ec3366407.zip | |
rti: handle more unbounded record
Fix #418
Diffstat (limited to 'src')
| -rw-r--r-- | src/grt/grt-disp_rti.adb | 6 | ||||
| -rw-r--r-- | src/grt/grt-rtis_utils.adb | 3 |
2 files changed, 6 insertions, 3 deletions
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 |