paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 12:58:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* modified zlib patch to resolve 12667 by zipfelvo

Browse Source 
git-svn-id: trunk@12176 -
This commit is contained in:
florian 2008-11-19 11:37:18 +00:00
parent d78855cea8
commit 719daf2cf8
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/zlib/src/zlib.pp
View File

@ -11,7 +11,8 @@ interface
{$ifdef unix}
{$linklib c}
{$endif}
{$PACKRECORDS 4}
{$packrecords c}
uses
ctypes;
@ -35,13 +36,12 @@ const
type
{ Compatible with paszlib }
Uint = Longint;
Ulong = Longint;
Ulongf = Longint;
Uint = cuint;
Ulong = culong;
Ulongf = Ulong;
Pulongf = ^Ulongf;
z_off_t = longint;
pbyte = ^byte;
pbytef = ^byte;
z_off_t = coff_t;
pbytef = pbyte;
TAllocfunc = function (opaque:pointer; items:uInt; size:uInt):pointer;cdecl;
TFreeFunc = procedure (opaque:pointer; address:pointer);cdecl;
@ -62,7 +62,7 @@ type
zalloc : TAllocFunc;
zfree : TFreeFunc;
opaque : pointer;
data_type : longint;
data_type : cint;
adler : uLong;
reserved : uLong;
end;