diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-03-13 05:40:22 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-03-13 06:30:35 +0100 |
| commit | ee840b7acee12202cbbedcd9794be67e32e312ef (patch) | |
| tree | 4bf9b0bd7300a3e87abd045691aec13225146e75 | |
| parent | 32e785f4108e1b4afd9a4aa20b908fb5c11cb737 (diff) | |
| download | ghdl-ee840b7acee12202cbbedcd9794be67e32e312ef.tar.gz ghdl-ee840b7acee12202cbbedcd9794be67e32e312ef.tar.bz2 ghdl-ee840b7acee12202cbbedcd9794be67e32e312ef.zip | |
synth-stmts: strip const in if statement.
| -rw-r--r-- | src/synth/synth-stmts.adb | 1 |
1 files changed, 1 insertions, 0 deletions
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 |