diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-13 18:52:13 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-13 18:54:25 +0200 |
| commit | 50bf82973c96b5518f66c0844ce520f5834a0976 (patch) | |
| tree | ed1e91c343246dc8dc88c753845d6578aeaf1adb /src/synth | |
| parent | 6b4f4c01a59a4d7f5bd8081022b68a6f69c81aa8 (diff) | |
| download | ghdl-50bf82973c96b5518f66c0844ce520f5834a0976.tar.gz ghdl-50bf82973c96b5518f66c0844ce520f5834a0976.tar.bz2 ghdl-50bf82973c96b5518f66c0844ce520f5834a0976.zip | |
synth-stmts: handle const indexed array.
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/synth-stmts.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index 50a1c70a8..8297e5242 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -179,6 +179,11 @@ package body Synth.Stmts is Dest_Voff := Build_Addidx (Get_Build (Syn_Inst), Dest_Voff, Voff); end if; + elsif Dest_Obj.Kind = Value_Const_Array then + Dest_Obj := Dest_Obj.Arr.V + (Iir_Index32 ((Dest_W - Dest_Off) / W)); + Dest_Off := 0; + Dest_W := W; end if; end; |