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

* Fix issue ID , potential wrong write

Browse Source 
git-svn-id: trunk@49518 -
This commit is contained in:
michael 2021-06-20 08:06:08 +00:00
parent 492a0ffcac
commit 15f25da1fa
1 changed files with 3 additions and 4 deletions

7
packages/paszlib/src/zipper.pp
View File

@ -972,7 +972,7 @@ end;
procedure TDeflater.Compress;
Var
Buf : PByte;
I,Count,NewCount : integer;
I,Count : integer;
C : TCompressionStream;
BytesNow : Int64;
NextMark : Int64;
@ -996,9 +996,8 @@ begin
Count:=FInFile.Read(Buf^,FBufferSize);
For I:=0 to Count-1 do
UpdC32(Buf[i]);
NewCount:=Count;
while (NewCount>0) do
NewCount:=NewCount-C.Write(Buf^,NewCount);
// Writebuffer will loop
C.WriteBuffer(Buf^,Count);
inc(BytesNow,Count);
if BytesNow>NextMark Then
begin