diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-01-02 06:32:06 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-01-02 06:32:06 +0100 |
commit | 603e2fe204cb578e2ac3f67b80a1c447205d40b2 (patch) | |
tree | eeac64bd6b1d9d91971fc7b536e5f905236a2138 /src/vhdl/translate/trans-rtis.adb | |
parent | 43a504a9722b739ab33393ecb2d1abc6962cc52f (diff) | |
download | ghdl-603e2fe204cb578e2ac3f67b80a1c447205d40b2.tar.gz ghdl-603e2fe204cb578e2ac3f67b80a1c447205d40b2.tar.bz2 ghdl-603e2fe204cb578e2ac3f67b80a1c447205d40b2.zip |
translate: WIP - refactoring for unbounded records.
Diffstat (limited to 'src/vhdl/translate/trans-rtis.adb')
-rw-r--r-- | src/vhdl/translate/trans-rtis.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-rtis.adb b/src/vhdl/translate/trans-rtis.adb index a155041da..44e28a62e 100644 --- a/src/vhdl/translate/trans-rtis.adb +++ b/src/vhdl/translate/trans-rtis.adb @@ -1539,7 +1539,7 @@ package body Trans.Rtis is Pop_Identifier_Prefix (Mark); end if; - Bounds := Info.S.Array_Bounds; + Bounds := Info.S.Composite_Bounds; Depth := Get_Depth_From_Var (Bounds); Info.B.Rti_Max_Depth := Rti_Depth_Type'Max (Depth, Base_Info.B.Rti_Max_Depth); |