paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 08:09:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Use zerror rather than hardcoded error table.

Browse Source 
git-svn-id: trunk@9380 -
This commit is contained in:
daniel 2007-12-02 11:34:11 +00:00
parent 95f00eb633
commit 34d2cf6b4f
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/zdeflate.pas
View File

@ -587,7 +587,7 @@ begin
(s^.pending_buf=nil) then
begin
{ERR_MSG(Z_MEM_ERROR);}
strm.msg := z_errmsg[z_errbase-Z_MEM_ERROR];
strm.msg := zerror(Z_MEM_ERROR);
deflateEnd (strm);
deflateInit2_ := Z_MEM_ERROR;
exit;
@ -857,14 +857,14 @@ begin
((s^.status=FINISH_STATE) and (flush<>Z_FINISH)) then
begin
{ERR_RETURN(strm^, Z_STREAM_ERROR);}
strm.msg := z_errmsg[z_errbase - Z_STREAM_ERROR];
strm.msg := zerror(Z_STREAM_ERROR);
deflate := Z_STREAM_ERROR;
exit;
end;
if (strm.avail_out = 0) then
begin
{ERR_RETURN(strm^, Z_BUF_ERROR);}
strm.msg := z_errmsg[z_errbase - Z_BUF_ERROR];
strm.msg := zerror(Z_BUF_ERROR);
deflate := Z_BUF_ERROR;
exit;
end;
@ -926,7 +926,7 @@ begin
and (flush <> Z_FINISH) then
begin
{ERR_RETURN(strm^, Z_BUF_ERROR);}
strm.msg := z_errmsg[z_errbase - Z_BUF_ERROR];
strm.msg := zerror(Z_BUF_ERROR);
deflate := Z_BUF_ERROR;
exit;
end;
@ -935,7 +935,7 @@ begin
if (s^.status = FINISH_STATE) and (strm.avail_in <> 0) then
begin
{ERR_RETURN(strm^, Z_BUF_ERROR);}
strm.msg := z_errmsg[z_errbase - Z_BUF_ERROR];
strm.msg := zerror(Z_BUF_ERROR);
deflate := Z_BUF_ERROR;
exit;
end;