paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 15:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Should use Edecompressionerror in Tdecompresionstream.

Browse Source 
git-svn-id: trunk@9372 -
This commit is contained in:
daniel 2007-12-01 22:03:53 +00:00
parent 5196db1ac3
commit 00e8db2ab6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -296,7 +296,7 @@ begin
if err=Z_STREAM_END then if err=Z_STREAM_END then
break; break;
if err<>Z_OK then if err<>Z_OK then
raise Ecompressionerror.create(zerror(err)); raise Edecompressionerror.create(zerror(err));
end; end;
if err=Z_STREAM_END then if err=Z_STREAM_END then
dec(compressed_read,Fstream.avail_in); dec(compressed_read,Fstream.avail_in);
@ -318,7 +318,7 @@ begin
else else
err:=inflateInit(Fstream); err:=inflateInit(Fstream);
if err<>Z_OK then if err<>Z_OK then
raise Ecompressionerror.create(zerror(err)); raise Edecompressionerror.create(zerror(err));
end; end;
function Tdecompressionstream.seek(offset:longint;origin:word):longint; function Tdecompressionstream.seek(offset:longint;origin:word):longint;