diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-08-05 18:33:44 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-08-05 18:33:44 +0200 |
commit | 7a4c217d9a21bf241c8760750bd10408c7855f35 (patch) | |
tree | 0f54feb9ace8851f9d9cf4887fb645360913d665 /src/grt/grt-rtis_utils.adb | |
parent | 23d162265deadf59a9cf9eabf512923aa25f693e (diff) | |
download | ghdl-7a4c217d9a21bf241c8760750bd10408c7855f35.tar.gz ghdl-7a4c217d9a21bf241c8760750bd10408c7855f35.tar.bz2 ghdl-7a4c217d9a21bf241c8760750bd10408c7855f35.zip |
grt: adjust previous patch on grt-waves
Write bounds only when the element subtype of the base type is unbounded.
Diffstat (limited to 'src/grt/grt-rtis_utils.adb')
-rw-r--r-- | src/grt/grt-rtis_utils.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/grt/grt-rtis_utils.adb b/src/grt/grt-rtis_utils.adb index 60266c0f5..e40e3a753 100644 --- a/src/grt/grt-rtis_utils.adb +++ b/src/grt/grt-rtis_utils.adb @@ -225,6 +225,19 @@ package body Grt.Rtis_Utils is end case; end Record_To_Element; + function Is_Unbounded (Rti : Ghdl_Rti_Access) return Boolean is + begin + case Rti.Kind is + when Ghdl_Rtik_Type_Array + | Ghdl_Rtik_Subtype_Unbounded_Array + | Ghdl_Rtik_Type_Unbounded_Record + | Ghdl_Rtik_Subtype_Unbounded_Record => + return True; + when others => + return False; + end case; + end Is_Unbounded; + procedure Foreach_Scalar (Ctxt : Rti_Context; Obj_Type : Ghdl_Rti_Access; Obj_Addr : Address; |