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.ads | |
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.ads')
-rw-r--r-- | src/grt/grt-rtis_utils.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/grt/grt-rtis_utils.ads b/src/grt/grt-rtis_utils.ads index 537f1bff8..e1ee7a9c5 100644 --- a/src/grt/grt-rtis_utils.ads +++ b/src/grt/grt-rtis_utils.ads @@ -77,6 +77,9 @@ package Grt.Rtis_Utils is El_Addr : out Address; El_Bounds : out Address); + -- Return True iff RTI is an unbounded type. + function Is_Unbounded (Rti : Ghdl_Rti_Access) return Boolean; + procedure Get_Value (Str : in out Vstring; Value : Value_Union; Type_Rti : Ghdl_Rti_Access); |