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/synth-vhdl_stmts.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/synth-vhdl_stmts.adb')
| -rw-r--r-- | src/synth/synth-vhdl_stmts.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index 2539fad87..02f6dd6b7 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -192,10 +192,7 @@ package body Synth.Vhdl_Stmts is Synth_Assignment_Prefix (Syn_Inst, Get_Prefix (Pfx), Dest_Base, Dest_Typ, Dest_Off, Dest_Dyn); - Dest_Off.Net_Off := - Dest_Off.Net_Off + Dest_Typ.Rec.E (Idx + 1).Boff; - Dest_Off.Mem_Off := - Dest_Off.Mem_Off + Dest_Typ.Rec.E (Idx + 1).Moff; + Dest_Off := Dest_Off + Dest_Typ.Rec.E (Idx + 1).Offs; Dest_Typ := Dest_Typ.Rec.E (Idx + 1).Typ; end; |