paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 00:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r48982 into '.':

Browse Source 
U    packages/fcl-process/src/processbody.inc
--- Recording mergeinfo for merge of r48982 into '.':
 U   .

# revisions: 48982
r48982 | marco | 2021-03-15 16:58:05 +0100 (Mon, 15 Mar 2021) | 1 line
Changed paths:
   M /trunk/packages/fcl-process/src/processbody.inc

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

git-svn-id: branches/fixes_3_2@49007 -
This commit is contained in:
marco 2021-03-19 10:22:03 +00:00
parent e2980ac39b
commit 8dd4e2e281
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-process/src/processbody.inc
View File

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