paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +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
break;
if err<>Z_OK then
raise Ecompressionerror.create(zerror(err));
raise Edecompressionerror.create(zerror(err));
end;
if err=Z_STREAM_END then
dec(compressed_read,Fstream.avail_in);
@ -318,7 +318,7 @@ begin
else
err:=inflateInit(Fstream);
if err<>Z_OK then
raise Ecompressionerror.create(zerror(err));
raise Edecompressionerror.create(zerror(err));
end;
function Tdecompressionstream.seek(offset:longint;origin:word):longint;