From 34d2cf6b4f3b1dfc3d657511939d806ac5108a6f Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sun, 2 Dec 2007 11:34:11 +0000
Subject: [PATCH]   * Use zerror rather than hardcoded error table.

git-svn-id: trunk@9380 -
---
 packages/paszlib/src/zdeflate.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/packages/paszlib/src/zdeflate.pas b/packages/paszlib/src/zdeflate.pas
index d6f39269da..a7054bfc3d 100644
--- a/packages/paszlib/src/zdeflate.pas
+++ b/packages/paszlib/src/zdeflate.pas
@@ -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;