mirror of https://gitlab.com/basile.b/dexed.git
fix, process stuck with stdout.flush()
- introduced in bf115d9594
.
- runnable module, add `stdout.flush;` then `readln;`
This commit is contained in:
parent
91ff18f87f
commit
72975e7185
|
@ -742,7 +742,7 @@ begin
|
||||||
stream.SetSize(sum + buffSz);
|
stream.SetSize(sum + buffSz);
|
||||||
cnt := proc.Output.Read((stream.Memory + sum)^, buffSz);
|
cnt := proc.Output.Read((stream.Memory + sum)^, buffSz);
|
||||||
sum += cnt;
|
sum += cnt;
|
||||||
until cnt = 0;
|
until (proc.Output.NumBytesAvailable = 0) or (cnt = 0);
|
||||||
stream.size := sum;
|
stream.size := sum;
|
||||||
stream.Position := sum;
|
stream.Position := sum;
|
||||||
end;
|
end;
|
||||||
|
|
Loading…
Reference in New Issue