diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-01-04 10:59:29 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-01-04 13:21:17 +0100 |
commit | af8bab4427fe36bef335724501c7410a7268bac5 (patch) | |
tree | e5acca2309b944b13945eb5a3f0c7e8d12ae0f5d /src/grt/grt-rtis_utils.adb | |
parent | b054bf21a3a9aed8c9756c60ce8209cc800c104b (diff) | |
download | ghdl-af8bab4427fe36bef335724501c7410a7268bac5.tar.gz ghdl-af8bab4427fe36bef335724501c7410a7268bac5.tar.bz2 ghdl-af8bab4427fe36bef335724501c7410a7268bac5.zip |
grt/rtis: fix use of bounds for unbounded subelements.
Diffstat (limited to 'src/grt/grt-rtis_utils.adb')
-rw-r--r-- | src/grt/grt-rtis_utils.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/grt/grt-rtis_utils.adb b/src/grt/grt-rtis_utils.adb index b3780801f..8f30aba43 100644 --- a/src/grt/grt-rtis_utils.adb +++ b/src/grt/grt-rtis_utils.adb @@ -354,12 +354,14 @@ package body Grt.Rtis_Utils is Cur_Bounds := Bounds; for I in 1 .. Len loop - Bounds := Cur_Bounds; 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); Append (Name, ')'); Handle_Any (El_Rti); else + Bounds := Cur_Bounds; Handle_Array_1 (Arr_Rti, Index + 1); end if; Truncate (Name, P + 1); |