From 3629ed753e2a432d100b54bc94473ada803dc43c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 3 May 2020 16:57:04 +0200
Subject: synth-stmts: fix incorrect assumption for control logic.

---
 src/synth/synth-stmts.adb | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 6217cbbb6..c378b986b 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -2262,11 +2262,6 @@ package body Synth.Stmts is
       Lc : constant Loop_Context_Acc := C.Cur_Loop;
       Res : Net;
    begin
-      if not Lc.Need_Quit then
-         --  No next/exit statement for this loop.  So no control.
-         return;
-      end if;
-
       --  Execution continue after this loop iff:
       --  1. Loop was enabled (Lc.Saved_En)
       Res := Lc.Saved_En;
-- 
cgit v1.2.3