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/grt/grt-rtis_utils.adb | |
| 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/grt/grt-rtis_utils.adb')
| -rw-r--r-- | src/grt/grt-rtis_utils.adb | 3 |
1 files changed, 2 insertions, 1 deletions
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 |