* buffer overflow in ReadInputStream if a stream read> READ_BYTES (=64k) large. The overloaded tstream one is ok.

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@48982 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 1 deletions

diff --git a/packages/fcl-process/src/processbody.inc b/packages/fcl-process/src/processbody.inc
index d07a2839a7..7737162a64 100644
--- a/packages/fcl-process/src/processbody.inc
+++ b/packages/fcl-process/src/processbody.inc
@@ -492,7 +492,7 @@ begin
       begin
         if (BytesRead + available > DataLength) then
           begin
-            DataLength:=BytesRead + READ_BYTES;
+            DataLength:=BytesRead + max(READ_BYTES,available);
             Setlength(Data,DataLength);
           end;
         NumBytes := p.Read(data[1+BytesRead], Available);