diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-03-07 18:34:29 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-03-07 18:34:29 +0100 |
| commit | 55d3c747da48e490aa558089b9809fd9dc488bf5 (patch) | |
| tree | 2186192b63588a41ba574dcaf6de62a660daca5f /src/synth/synth-stmts.adb | |
| parent | 8bac67c8a2f02090389e7e14d385f8b7fc2b00e6 (diff) | |
| download | ghdl-55d3c747da48e490aa558089b9809fd9dc488bf5.tar.gz ghdl-55d3c747da48e490aa558089b9809fd9dc488bf5.tar.bz2 ghdl-55d3c747da48e490aa558089b9809fd9dc488bf5.zip | |
synth-stmts: handle constant if statements.
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -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 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 |