diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-05-24 08:02:19 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-05-24 08:02:19 +0200 |
commit | 66429d454f4316155f5b94292e0e9a0c65890d01 (patch) | |
tree | f0d438a199ba67d0534cba37ed7fbd291e06e5cb /src/synth/elab-vhdl_values.adb | |
parent | ca9c0eaaf5d2c4fc1c6ff6883e542593d1c93a58 (diff) | |
download | ghdl-66429d454f4316155f5b94292e0e9a0c65890d01.tar.gz ghdl-66429d454f4316155f5b94292e0e9a0c65890d01.tar.bz2 ghdl-66429d454f4316155f5b94292e0e9a0c65890d01.zip |
elab-vhdl_objtypes: use value_offsets for record elements offset.
Diffstat (limited to 'src/synth/elab-vhdl_values.adb')
-rw-r--r-- | src/synth/elab-vhdl_values.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/elab-vhdl_values.adb b/src/synth/elab-vhdl_values.adb index 3187671db..03f70943f 100644 --- a/src/synth/elab-vhdl_values.adb +++ b/src/synth/elab-vhdl_values.adb @@ -389,7 +389,8 @@ package body Elab.Vhdl_Values is raise Internal_Error; when Type_Record => for I in Typ.Rec.E'Range loop - Write_Value_Default (M + Typ.Rec.E (I).Moff, Typ.Rec.E (I).Typ); + Write_Value_Default (M + Typ.Rec.E (I).Offs.Mem_Off, + Typ.Rec.E (I).Typ); end loop; when Type_Access => Write_Access (M, Null_Heap_Index); |