From 50bf82973c96b5518f66c0844ce520f5834a0976 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 13 Oct 2019 18:52:13 +0200
Subject: synth-stmts: handle const indexed array.

---
 src/synth/synth-stmts.adb | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src')

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;
 
-- 
cgit v1.2.3