diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-10-18 06:27:49 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-10-21 08:03:37 +0200 |
| commit | ffa1a498dc22b7758d096cd91c61f0d356879e47 (patch) | |
| tree | 769d1ce78e9032983985b211c2044385f8426e09 /src/grt/grt-rtis_utils.adb | |
| parent | ed7ad157dbecc784bb2df44684442e88431db561 (diff) | |
| download | ghdl-ffa1a498dc22b7758d096cd91c61f0d356879e47.tar.gz ghdl-ffa1a498dc22b7758d096cd91c61f0d356879e47.tar.bz2 ghdl-ffa1a498dc22b7758d096cd91c61f0d356879e47.zip | |
grt rtis/wave: handle unbounded record subtypes.
Fix #668
Diffstat (limited to 'src/grt/grt-rtis_utils.adb')
| -rw-r--r-- | src/grt/grt-rtis_utils.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/grt/grt-rtis_utils.adb b/src/grt/grt-rtis_utils.adb index ed4429744..f90ae47a6 100644 --- a/src/grt/grt-rtis_utils.adb +++ b/src/grt/grt-rtis_utils.adb @@ -445,6 +445,15 @@ package body Grt.Rtis_Utils is when Ghdl_Rtik_Type_Unbounded_Record => -- Bounds (layout) must have been extracted. Handle_Record (To_Ghdl_Rtin_Type_Record_Acc (Rti)); + when Ghdl_Rtik_Subtype_Unbounded_Record => + declare + St : constant Ghdl_Rtin_Subtype_Composite_Acc := + To_Ghdl_Rtin_Subtype_Composite_Acc (Rti); + Bt : constant Ghdl_Rtin_Type_Record_Acc := + To_Ghdl_Rtin_Type_Record_Acc (St.Basetype); + begin + Handle_Record (Bt); + end; when Ghdl_Rtik_Subtype_Record => declare St : constant Ghdl_Rtin_Subtype_Composite_Acc := |