diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-08-04 18:50:08 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-08-04 18:50:08 +0200 |
commit | 75879f13fc03c1c8b3f78f1c415286ab84910e39 (patch) | |
tree | 93bca4d1bcdc5dede4ce5d610cce6a95c2aa5338 /src/grt/grt-rtis_utils.adb | |
parent | b623f87a6143ea71277969d79de7bd6a92443b93 (diff) | |
download | ghdl-75879f13fc03c1c8b3f78f1c415286ab84910e39.tar.gz ghdl-75879f13fc03c1c8b3f78f1c415286ab84910e39.tar.bz2 ghdl-75879f13fc03c1c8b3f78f1c415286ab84910e39.zip |
grt-disp_signals: fix handling of unbounded aggregates.
For #1420
Diffstat (limited to 'src/grt/grt-rtis_utils.adb')
-rw-r--r-- | src/grt/grt-rtis_utils.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/grt/grt-rtis_utils.adb b/src/grt/grt-rtis_utils.adb index ad9d33563..60266c0f5 100644 --- a/src/grt/grt-rtis_utils.adb +++ b/src/grt/grt-rtis_utils.adb @@ -367,7 +367,7 @@ package body Grt.Rtis_Utils is Pos_To_Vstring (Name, Base_Type, Rng, I - 1); if Index = Last_Index then -- FIXME: not always needed. - Bounds := Array_Layout_To_Bounds (Cur_Bounds); + Bounds := Array_Layout_To_Element (Cur_Bounds, El_Rti); Append (Name, ')'); Handle_Any (El_Rti); else |