From ee840b7acee12202cbbedcd9794be67e32e312ef Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 13 Mar 2020 05:40:22 +0100
Subject: synth-stmts: strip const in if statement.

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

(limited to 'src')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index c40eaadc6..f99a3f0ec 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -1144,6 +1144,7 @@ package body Synth.Stmts is
       Sel : Value_Acc;
    begin
       Sel := Synth_Expression_With_Basetype (C.Inst, Expr);
+      Strip_Const (Sel);
       if Is_Static (Sel) then
          case Sel.Typ.Kind is
             when Type_Bit
-- 
cgit v1.2.3