From 7b313df7d779d283eb6603d552d886f483391469 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Tue, 29 Nov 2005 23:46:30 +0000
Subject: [PATCH]   * Remove FPC define

git-svn-id: trunk@1849 -
---
 packages/base/paszlib/zdeflate.pas | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/packages/base/paszlib/zdeflate.pas b/packages/base/paszlib/zdeflate.pas
index ee20df3e29..aeaa8c0b09 100644
--- a/packages/base/paszlib/zdeflate.pas
+++ b/packages/base/paszlib/zdeflate.pas
@@ -527,17 +527,13 @@ begin
   }
   { SetLength(strm.msg, 255); }
   strm.msg := '';
-  if not Assigned(strm.zalloc) then
+  if strm.zalloc=nil then
   begin
-    {$IFDEF FPC}  strm.zalloc := @zcalloc;  {$ELSE}
-    strm.zalloc := zcalloc;
-    {$ENDIF}
+    strm.zalloc := @zcalloc;
     strm.opaque := nil;
   end;
-  if not Assigned(strm.zfree) then
-    {$IFDEF FPC}  strm.zfree := @zcfree;  {$ELSE}
-    strm.zfree := zcfree;
-    {$ENDIF}
+  if strm.zfree=nil then
+    strm.zfree := @zcfree;
 
   if (level  =  Z_DEFAULT_COMPRESSION) then
     level := 6;