diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-03-09 20:33:44 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-03-09 20:33:44 +0100 |
commit | 90fb8d3ae8ba631fd9eea7f7f71a0a8a65e76cfd (patch) | |
tree | a912edc1ee5d8f6d29448d658c6a434f5dbf59b2 /src | |
parent | e7b917a9ff84351d424a93bbb7b8432829a2f96e (diff) | |
download | ghdl-90fb8d3ae8ba631fd9eea7f7f71a0a8a65e76cfd.tar.gz ghdl-90fb8d3ae8ba631fd9eea7f7f71a0a8a65e76cfd.tar.bz2 ghdl-90fb8d3ae8ba631fd9eea7f7f71a0a8a65e76cfd.zip |
synthesis: handle array in record.
Diffstat (limited to 'src')
-rw-r--r-- | src/synth/synth-stmts.adb | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index a5557cd94..2e9c0369c 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -191,14 +191,7 @@ package body Synth.Stmts is Dest_Type := Get_Array_Element (Dest_Type); if Voff /= No_Net then - if Dest_Off /= 0 then - -- TODO: add addidx (addoff ?) - if Off /= 0 or else Dest_Type.W /= 1 then - raise Internal_Error; - end if; - else - Dest_Off := Off; - end if; + Dest_Off := Dest_Off + Off; if Dest_Voff = No_Net then Dest_Voff := Voff; Dest_Rdwd := Dest_W; |