From 4291773d1d3e72f0beacce81b680d58634e9aaf0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 18 May 2020 08:06:19 +0200
Subject: synth-environment: fix handling of static values in case statements.
 Fix #1319

---
 src/synth/synth-environment.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/synth')

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 =>
-- 
cgit v1.2.3