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

* fix buffer handling in flush

Browse Source 
git-svn-id: trunk@10080 -
This commit is contained in:
peter 2008-01-28 16:28:14 +00:00
parent 9288ead792
commit f5131f591a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/paszlib/src/zstream.pp
View File

@ -217,11 +217,6 @@ var err:smallint;
begin
{Compress remaining data still in internal zlib data buffers.}
repeat
err:=deflate(Fstream,Z_FINISH);
if err=Z_STREAM_END then
break;
if err<>Z_OK then
raise Ecompressionerror.create(zerror(err));
if Fstream.avail_out=0 then
begin
{ Flush the buffer to the stream and update progress }
@ -232,6 +227,11 @@ begin
Fstream.next_out:=Fbuffer;
Fstream.avail_out:=bufsize;
end;
err:=deflate(Fstream,Z_FINISH);
if err=Z_STREAM_END then
break;
if (err<>Z_OK) then
raise Ecompressionerror.create(zerror(err));
until false;
if Fstream.avail_out<bufsize then
begin