From 8e0e93d45b9bfe6331547c9a2ec88f5269c3324a Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 17 Jun 2020 07:59:31 +0200
Subject: fhunit.pas, pegelunit.pas: really break if beenden

---
 fhunit.pas    | 4 +++-
 pegelunit.pas | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/fhunit.pas b/fhunit.pas
index f4e5edc..b76b60f 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -427,8 +427,10 @@ begin
     ladeProzess.closeInput;
     ladeProzess.closeStderr;
     while (ladeProzess.running) or (ladeProzess.output.numBytesAvailable>0) do begin
-      if beenden then
+      if beenden then begin
         ladeProzess.terminate(0);
+        break;
+      end;
       bytesToRead:=ladeProzess.output.numBytesAvailable;
       if bytesToRead>0 then begin
         setlength(antwort,bytesRead + bufLengMin);
diff --git a/pegelunit.pas b/pegelunit.pas
index c2e4066..26075b2 100644
--- a/pegelunit.pas
+++ b/pegelunit.pas
@@ -380,8 +380,10 @@ begin
     ladeProzess.closeInput;
     ladeProzess.closeStderr;
     while (ladeProzess.running) or (ladeProzess.output.numBytesAvailable>0) do begin
-      if beenden then
+      if beenden then begin
         ladeProzess.terminate(0);
+        break;
+      end;
       bytesToRead:=ladeProzess.output.numBytesAvailable;
       if bytesToRead>0 then begin
         setlength(antwort,bytesRead + bufLengMin);
-- 
cgit v1.2.3-70-g09d2