Avoid rebuilding complex object after a copy.

(Use an offset within records for complex types).

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);