Browse Source

* several flaws in headers fixed, resolves #8285

git-svn-id: trunk@6387 -
florian 18 years ago
parent
commit
15630b4247
1 changed files with 6 additions and 3 deletions
  1. 6 3
      packages/extra/zlib/zlib.pp

+ 6 - 3
packages/extra/zlib/zlib.pp

@@ -11,6 +11,9 @@ interface
 {$endif}
 {$endif}
 {$PACKRECORDS 4}
 {$PACKRECORDS 4}
 
 
+uses
+  ctypes;
+
 const
 const
   ZLIB_VERSION = '1.1.3';
   ZLIB_VERSION = '1.1.3';
 
 
@@ -110,9 +113,9 @@ function deflateParams(var strm:TZStream; level:longint; strategy:longint):longi
 function inflateSetDictionary(var strm:TZStream;dictionary : pbytef; dictLength:uInt):longint;cdecl;external libz name 'inflateSetDictionary';
 function inflateSetDictionary(var strm:TZStream;dictionary : pbytef; dictLength:uInt):longint;cdecl;external libz name 'inflateSetDictionary';
 function inflateSync(var strm:TZStream):longint;cdecl;external libz name 'inflateSync';
 function inflateSync(var strm:TZStream):longint;cdecl;external libz name 'inflateSync';
 function inflateReset(var strm:TZStream):longint;cdecl;external libz name 'inflateReset';
 function inflateReset(var strm:TZStream):longint;cdecl;external libz name 'inflateReset';
-function compress(dest:pbytef;destLen:uLongf; source : pbytef; sourceLen:uLong):longint;cdecl;external libz name 'compress';
-function compress2(dest:pbytef;destLen:uLongf; source : pbytef; sourceLen:uLong; level:longint):longint;cdecl;external libz name 'compress2';
-function uncompress(dest:pbytef;destLen:uLongf; source : pbytef; sourceLen:uLong):longint;cdecl;external libz name 'uncompress';
+function compress(dest:pbytef;destLen:puLongf; source : pbytef; sourceLen:uLong):cint;cdecl;external libz name 'compress';
+function compress2(dest:pbytef;destLen:puLongf; source : pbytef; sourceLen:uLong; level:cint):cint;cdecl;external libz name 'compress2';
+function uncompress(dest:pbytef;destLen:puLongf; source : pbytef; sourceLen:uLong):cint;cdecl;external libz name 'uncompress';
 function gzopen(path:pchar; mode:pchar):gzFile;cdecl;external libz name 'gzopen';
 function gzopen(path:pchar; mode:pchar):gzFile;cdecl;external libz name 'gzopen';
 function gzdopen(fd:longint; mode:pchar):gzFile;cdecl;external libz name 'gzdopen';
 function gzdopen(fd:longint; mode:pchar):gzFile;cdecl;external libz name 'gzdopen';
 function gzsetparams(thefile:gzFile; level:longint; strategy:longint):longint;cdecl;external libz name 'gzsetparams';
 function gzsetparams(thefile:gzFile; level:longint; strategy:longint):longint;cdecl;external libz name 'gzsetparams';