From 950f6b8c2f18e19885c9188fbab7345930f0b08d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 5 Oct 2019 20:10:54 +0200
Subject: synth: fix selected signal assignment (use basetype).

---
 src/synth/synth-stmts.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 48be812bd..985dd69db 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -1106,7 +1106,7 @@ package body Synth.Stmts is
    begin
       Targ_Type := Get_Value_Type (Syn_Inst, Get_Type (Targ));
       --  Create a net for the expression.
-      Sel := Synth_Expression (Syn_Inst, Expr);
+      Sel := Synth_Expression_With_Basetype (Syn_Inst, Expr);
 
       --  Count choices and alternatives.
       Count_Choices (Case_Info, Choices);
-- 
cgit v1.2.3