diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-05-18 08:06:19 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-05-18 08:06:19 +0200 |
commit | 4291773d1d3e72f0beacce81b680d58634e9aaf0 (patch) | |
tree | 8a9a1fb982f3fd733f0c5950cdf352018fa8f85a /src | |
parent | f01c93b00c618e994f795285a5eb3debeaf03fcf (diff) | |
download | ghdl-4291773d1d3e72f0beacce81b680d58634e9aaf0.tar.gz ghdl-4291773d1d3e72f0beacce81b680d58634e9aaf0.tar.bz2 ghdl-4291773d1d3e72f0beacce81b680d58634e9aaf0.zip |
synth-environment: fix handling of static values in case statements. Fix #1319
Diffstat (limited to 'src')
-rw-r--r-- | src/synth/synth-environment.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/synth-environment.adb b/src/synth/synth-environment.adb index db76e286a..97ca0f36a 100644 --- a/src/synth/synth-environment.adb +++ b/src/synth/synth-environment.adb @@ -1299,9 +1299,9 @@ package body Synth.Environment is if not Is_Equal (Res, Prev_Val) then -- The previous value is different from the result. return Null_Memtyp; - else - Res := Prev_Val; end if; + else + Res := Prev_Val; end if; end if; when True => |