From 72975e718521e07f6791ca7442b58cd9a079d311 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Tue, 14 Jul 2015 06:08:17 +0200
Subject: [PATCH] fix, process stuck with stdout.flush()

- introduced in bf115d9594524a3a7d08d7a00c080bc56ff505e4.
- runnable module, add `stdout.flush;` then `readln;`
---
 src/ce_common.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ce_common.pas b/src/ce_common.pas
index 0ac78c86..35d023c1 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -742,7 +742,7 @@ begin
     stream.SetSize(sum + buffSz);
     cnt := proc.Output.Read((stream.Memory + sum)^, buffSz);
     sum += cnt;
-  until cnt = 0;
+  until (proc.Output.NumBytesAvailable = 0) or (cnt = 0);
   stream.size := sum;
   stream.Position := sum;
 end;