diff options
Diffstat (limited to 'translate/grt/grt-rtis_utils.adb')
| -rw-r--r-- | translate/grt/grt-rtis_utils.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/grt/grt-rtis_utils.adb b/translate/grt/grt-rtis_utils.adb index 52b86001d..f8ff5d62f 100644 --- a/translate/grt/grt-rtis_utils.adb +++ b/translate/grt/grt-rtis_utils.adb @@ -335,7 +335,7 @@ package body Grt.Rtis_Utils is Addr := Obj_Addr + El.Val_Off; end if; if Rti_Complex_Type (El.Eltype) then - Addr := To_Addr_Acc (Addr).all; + Addr := Obj_Addr + To_Ghdl_Index_Acc (Addr).all; end if; Append (Name, '.'); Append (Name, El.Name); |