aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2020-05-18 08:06:19 +0200
committerTristan Gingold <tgingold@free.fr>2020-05-18 08:06:19 +0200
commit4291773d1d3e72f0beacce81b680d58634e9aaf0 (patch)
tree8a9a1fb982f3fd733f0c5950cdf352018fa8f85a /src
parentf01c93b00c618e994f795285a5eb3debeaf03fcf (diff)
downloadghdl-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.adb4
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 =>