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

* Remove FPC define

Browse Source 
git-svn-id: trunk@1849 -
This commit is contained in:
daniel 2005-11-29 23:46:30 +00:00
parent a3d29d3a3f
commit 7b313df7d7
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/base/paszlib/zdeflate.pas
View File

@ -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;