From 55d3c747da48e490aa558089b9809fd9dc488bf5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 7 Mar 2020 18:34:29 +0100
Subject: synth-stmts: handle constant if statements.

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

(limited to 'src/synth')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 88501a684..30c80c0ef 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -667,6 +667,7 @@ package body Synth.Stmts is
    begin
       Cond_Val := Synth_Expression (C.Inst, Cond);
       if Is_Static (Cond_Val) then
+         Strip_Const (Cond_Val);
          if Cond_Val.Scal = 1 then
             --  True.
             Synth_Sequential_Statements
-- 
cgit v1.2.3