From dd34ca9d5e79270fee191d476e07d8e2e63848a0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 23 Nov 2019 12:20:36 +0100
Subject: synth-expr: add strip_const for indexed names.  Fix #1023

---
 src/synth/synth-expr.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 408845d3a..9bb95f66a 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -1071,6 +1071,7 @@ package body Synth.Expr is
       Idx_Type := Get_Value_Type
         (Syn_Inst, Get_Base_Type (Get_Type (Idx_Expr)));
       Idx_Val := Synth_Expression_With_Type (Syn_Inst, Idx_Expr, Idx_Type);
+      Strip_Const (Idx_Val);
 
       Get_Onedimensional_Array_Bounds (Pfx_Type, Bnd, El_Typ);
       W := El_Typ.W;
-- 
cgit v1.2.3