diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-11-11 07:42:31 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-11-11 07:42:31 +0100 |
| commit | 4ad7cbc7e7fc1c5bc24b541d9fbbb4f00abde93d (patch) | |
| tree | 47a00b7c90c6cad1cefde9821a38bcb644f3f66e | |
| parent | 56e74b28fe2df92739000347ce013a627dbd7ccd (diff) | |
| download | ghdl-4ad7cbc7e7fc1c5bc24b541d9fbbb4f00abde93d.tar.gz ghdl-4ad7cbc7e7fc1c5bc24b541d9fbbb4f00abde93d.tar.bz2 ghdl-4ad7cbc7e7fc1c5bc24b541d9fbbb4f00abde93d.zip | |
grt Handle_Record: pass address of elements.
Fix #685
| -rw-r--r-- | src/grt/grt-rtis_utils.adb | 3 |
1 files changed, 1 insertions, 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); |