From 4ad7cbc7e7fc1c5bc24b541d9fbbb4f00abde93d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 11 Nov 2018 07:42:31 +0100
Subject: grt Handle_Record: pass address of elements.

Fix #685
---
 src/grt/grt-rtis_utils.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/grt/grt-rtis_utils.adb b/src/grt/grt-rtis_utils.adb
index f90ae47a6..b3780801f 100644
--- a/src/grt/grt-rtis_utils.adb
+++ b/src/grt/grt-rtis_utils.adb
@@ -374,14 +374,13 @@ package body Grt.Rtis_Utils is
          Sizes : constant Ghdl_Indexes_Ptr :=
            To_Ghdl_Indexes_Ptr (Bounds);
          El : Ghdl_Rtin_Element_Acc;
-         El_Addr : Address;
          P : Natural;
       begin
          P := Length (Name);
          for I in 1 .. Rti.Nbrel loop
             El := To_Ghdl_Rtin_Element_Acc (Rti.Elements (I - 1));
             Record_To_Element
-              (Rec_Addr, El, Is_Sig, Rec_Bounds, El_Addr, Bounds);
+              (Rec_Addr, El, Is_Sig, Rec_Bounds, Addr, Bounds);
             Append (Name, '.');
             Append (Name, El.Name);
             Handle_Any (El.Eltype);
-- 
cgit v1.2.3