From 63c9d7e02e979d721a0ddb12bcdaa3976d50aac9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 25 Sep 2019 21:01:50 +0200
Subject: synth: fix crash on slice of slice.

---
 src/synth/synth-expr.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 5ee1ad90c..fa2ddc925 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -1220,7 +1220,8 @@ package body Synth.Expr is
                               return Value_Acc
    is
       Pfx_Node : constant Node := Get_Prefix (Name);
-      Pfx : constant Value_Acc := Synth_Expression (Syn_Inst, Pfx_Node);
+      Pfx : constant Value_Acc :=
+        Synth_Expression_With_Basetype (Syn_Inst, Pfx_Node);
       Res_Bnd : Bound_Type;
       Res_Type : Type_Acc;
       Inp : Net;
-- 
cgit v1.2.3