fix, process stuck with stdout.flush()

- introduced in bf115d9594.
- runnable module, add `stdout.flush;` then `readln;`
This commit is contained in:
Basile Burg 2015-07-14 06:08:17 +02:00
parent 91ff18f87f
commit 72975e7185
1 changed files with 1 additions and 1 deletions

View File

@ -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;