{ file : IcsZLibObj.pas date : 6 Dec 2005 ICS version: Angus Robertson Subject ------- A Borland Delphi unit to interface zlib.dll functions Acknowledgements ---------------- Thanks to Jean-loup Gailly and Mark Adler for zLib library and Gilles Vollant for zlibwapi.dll zLib library version 1.2.12 Copyright (C) 1995-2022 Jean-loup Gailly and Mark Adler Informations at http://www.zlib.net (or http://www.zlib.org) Adaptation ---------- Xavier Le Bris xavier.lebris@free.fr (english or french) ICS Updates ----------- 27 Nov 2005 by Angus Robertson, Magenta Systems delphi@magsys.co.uk, http://www.magsys.co.uk/delphi/ Added an alterative Zlib implementation using the ZLIB OBJ files linked into the program to avoid needing an external DLL, in IcsZLibObj Renamed the units for use with ICS from http://www.overbyte.be This OBJ files are from zlibpas by Gabriel Corneanu (gabrielcorneanu(AT)yahoo.com) 02 May 2008 by A.Garrels Prepared code for Unicode, changed most types from String and PChar to AnsiString and PAnsiChar. Aug 05, 2008 F. Piette added some casts for unicode support Sep 10, 2010 Angus and Arno updated ZLIB to 1.2.5, subdirectory now lowercase Apr 15, 2011 Arno prepared for 64-bit. Aug 13, 2011 Arno fixed record allignment. May 2012 - V8.00 - Arno added FireMonkey cross platform support with POSIX/MacOS also IPv6 support, include files now in sub-directory Aug 12, 2020 V8.65 - lots of Longint to Integer and LongWord to Cardinal to keep MacOS64 happy. Apr 11, 2022 V8.69 - Updated 1.2.5 to 1.2.12, sorry for long delay in updating zlib, now including some important bug fixes, although never saw any issues with the minimal use ICS makes of zlib (HTTP compression). Added some new constants. All zlib externals now cdecl. Oct 20, 2022 V8.70 - Moved some literals and functions to ZlibHigh so they can be used with System.Zib instead of this unit to avoid linking ZLIB OBJ files twice. Changed some PAnsiChar to PBytes and integers to cardinals. Aug 08, 2023 V9.0 Updated version to major release 9. Mar 17, 2026 V9.6 Windows ARM64 does not allow inserting OBJ files. But we used System.ZLib instead for modern compilers. This software is provided 'as-is', without any express or implied warranty. In no event will the author be held liable for any damages arising from the use of this software. This code is free under the same terms and conditions as 'zlib.' } unit OverbyteIcsZLibObj; interface {$IFDEF MSWINDOWS} {$IFNDEF CPUARM64} { V9.6 } {$ALIGN ON} {$B-} { Enable partial boolean evaluation } {$T-} { Untyped pointers } {$X+} { Enable extended syntax } {$I Include\OverbyteIcsDefs.inc} {$IFDEF COMPILER14_UP} {$IFDEF NO_EXTENDED_RTTI} {$RTTI EXPLICIT METHODS([]) FIELDS([]) PROPERTIES([])} {$ENDIF} {$ENDIF} {$IFDEF DELPHI6_UP} {$WARN SYMBOL_PLATFORM OFF} {$WARN SYMBOL_LIBRARY OFF} {$WARN SYMBOL_DEPRECATED OFF} {$ENDIF} uses {$IFDEF RTL_NAMESPACES}Winapi.Windows{$ELSE}Windows{$ENDIF}; {xlb constants and variables} { V8.70 moved to ZlibHigh const Z_DLL_NOT_FOUND = -97; Z_UNKNOWN_COMPRESSION_VERSION = -98; Z_CHECK_PROBLEM = -99; var zlibDllLoaded : boolean; zlibProblemAlert : boolean; zlibProblemString : AnsiString; zlibRaiseError : boolean; ZLibWinapi : boolean; } {zLib constants} const ZLIB_VERSION = '1.2.12'; (* V8.70 moved to ZlibHigh { Allowed flush values; see deflate() below for details } Z_NO_FLUSH = 0; Z_PARTIAL_FLUSH = 1; Z_SYNC_FLUSH = 2; Z_FULL_FLUSH = 3; Z_FINISH = 4; Z_BLOCK = 5; Z_TREES = 6; { V8.69 } Z_OK = 0; Z_STREAM_END = 1; Z_NEED_DICT = 2; Z_ERRNO = -1; Z_STREAM_ERROR = -2; Z_DATA_ERROR = -3; Z_MEM_ERROR = -4; Z_BUF_ERROR = -5; Z_VERSION_ERROR = -6; { compression levels } Z_NO_COMPRESSION = 0; Z_BEST_SPEED = 1; Z_BEST_COMPRESSION = 9; Z_DEFAULT_COMPRESSION = -1; { compression strategy; see deflateInit2() below for details } Z_FILTERED = 1; Z_HUFFMAN_ONLY = 2; Z_RLE = 3; Z_FIXED = 4; { V8.69 } Z_DEFAULT_STRATEGY = 0; Z_MAX_STRATEGY = 3; { Possible values of the data_type field } Z_BINARY = 0; Z_ASCII = 1; Z_TEXT = 1; { V8.69 } Z_UNKNOWN = 2; { The deflate compression method (the only one supported in this version) } Z_DEFLATED = 8; Z_NULL = nil; { for initializing zalloc, zfree, opaque } {other constants} Z_BUFSIZE = 16384; MAX_WBITS = 15; { 32K LZ77 window } MAX_MEM_LEVEL = 9; DEF_MEM_LEVEL = 8; { if MAX_MEM_LEVEL > 8 } *) {zLib types} type tZLibCompressionStrategy = (ctStandard, ctFiltered, ctHuffmanOnly, ctRle); tZLibFlag = (zfuInt, zfuLong, zfvoidpf, zfz_off_t, zfdebug, zfasm, zfwinapi, zfbuildfixed, zfdynamic_crc_table, zfno_gzcompress, zfno_gzip, zfpkzip_bug, zffastest); alloc_func = function(opaque: Pointer; items, size: Integer): Pointer; cdecl; free_func = procedure(opaque, address: Pointer); cdecl; in_func = function(opaque: Pointer; var buf: PByte): Integer; cdecl; out_func = function(opaque: Pointer; buf: PByte; size: Integer): Integer; cdecl; internal_state = record end; pinternal_state = ^internal_state; { V8.65 all longint to Integer } z_streamp = ^z_stream; z_stream = record next_in : pointer; // next input byte avail_in : Cardinal; // number of bytes available at next_in V8.70 was integer total_in : Integer; // total nb of input bytes read so far next_out : pointer; // next output byte should be put there avail_out : Cardinal; // remaining free space at next_out V8.70 was integer total_out : Integer; // total nb of bytes output so far msg : PAnsiChar; // last error message, NULL if no error state : pinternal_state; // not visible by applications zalloc : alloc_func; // used to allocate the internal state zfree : free_func; // used to free the internal state AppData : pointer; // private data object passed to zalloc and zfree data_type : Integer; // best guess about the data type: ascii or binary adler : Cardinal; // adler32 value of the uncompressed data reserved : Integer; // reserved for future use end; pZStreamRec = ^tZStreamRec; tZStreamRec = z_stream; gz_stream = record stream : z_stream; z_err : Integer; // error code for last stream operation z_eof : Integer; // set if end of input file gzfile : pointer; // .gz file inbuf : pointer; // input buffer outbuf : pointer; // output buffer crc : Cardinal; // crc32 of uncompressed data msg : PAnsiChar; // error message path : PAnsiChar; // path name for debugging only transparent : Integer; // 1 if input file is not a .gz file mode : AnsiChar; // 'w' or 'r' start : Integer; // start of compressed data in file (header skipped) into : Integer; // bytes into deflate or inflate outof : Integer; // bytes out of deflate or inflate back : Integer; // one character push-back last : Integer; // true if push-back is last character end; pGzStreamRec = ^tGzStreamRec; tGzStreamRec = gz_stream; tGzFile = pGzStreamRec; // gzip header information passed to and from zlib routines. See RFC 1952 // for more details on the meanings of these fields. gz_headerp = ^gz_header; gz_header = record text : integer; //* true if compressed data believed to be text */ time : Cardinal; //* modification time */ xflags : integer; //* extra flags (not used when writing a gzip file) */ os : integer; //* operating system */ extra : PByte; //* pointer to extra field or Z_NULL if none */ extra_len : Cardinal; //* extra field length (valid if extra != Z_NULL) */ extra_max : Cardinal; //* space at extra (only when reading header) */ name : PAnsiChar; //* pointer to zero-terminated file name or Z_NULL */ name_max : Cardinal; //* space at name (only when reading header) */ comment : PAnsiChar; //* pointer to zero-terminated comment or Z_NULL */ comm_max : Cardinal; //* space at comment (only when reading header) */ hcrc : integer; //* true if there was or will be a header crc */ done : integer; //* true when done reading gzip header (not used when writing a gzip file) */ end; (* V8.70 moved to ZlibHigh TZStreamType = ( zsZLib, //standard zlib stream zsGZip, //gzip stream zsRaw); //raw stream (without any header) *) { V8.65 all longint to Integer and Longword to Cardinal } {zLib functions} //function zlibVersionDll : AnsiString; cdecl; function zlibCompileFlags : Cardinal; cdecl; (* basic functions *) function zlibVersion: PAnsiChar; cdecl; function deflateInit(var strm: z_stream; level: Integer): Integer; cdecl; function deflate(var strm: z_stream; flush: Integer): Integer; cdecl; function deflateEnd(var strm: z_stream): Integer; cdecl; function inflateInit(var strm: z_stream): Integer; cdecl; function inflate(var strm: z_stream; flush: Integer): Integer; cdecl; function inflateEnd(var strm: z_stream): Integer; cdecl; (* advanced functions *) function deflateInit2(var strm: z_stream; level, method, windowBits, memLevel, strategy: Integer): Integer; cdecl; function deflateSetDictionary(var strm: z_stream; const dictionary: PAnsiChar; dictLength: Integer): Integer; cdecl; function deflateCopy(var dest, source: z_stream): Integer; cdecl; function deflateReset(var strm: z_stream): Integer; cdecl; function deflateParams(var strm: z_stream; level, strategy: Integer): Integer; cdecl; function deflateBound(var strm: z_stream; sourceLen: Integer): Integer; cdecl; function deflatePrime(var strm: z_stream; bits, value: Integer): Integer; cdecl; function inflateInit2(var strm: z_stream; windowBits: Integer): Integer; cdecl; function inflateSetDictionary(var strm: z_stream; const dictionary: PAnsiChar; dictLength: Integer): Integer; cdecl; function inflateSync(var strm: z_stream): Integer; cdecl; function inflateCopy(var dest, source: z_stream): Integer; cdecl; function inflateReset(var strm: z_stream): Integer; cdecl; function inflateBackInit(var strm: z_stream; windowBits: Integer; window: PByte): Integer; cdecl; { V8.70 was PAnsiChar } function inflateBack(var strm: z_stream; in_fn: in_func; in_desc: Pointer; out_fn: out_func; out_desc: Pointer): Integer; cdecl; function inflateBackEnd(var strm: z_stream): Integer; cdecl; // function deflateInitEx(var strm: z_stream; level: Integer; streamtype: TZStreamType = zsZLib): Integer; cdecl; V8.70 moved to ZlibHigh // function inflateInitEx(var strm: z_stream; streamtype: TZStreamType = zsZLib): Integer; cdecl; V8.70 moved to ZlibHigh (* utility functions *) function compress(dest: PAnsiChar; var destLen: Integer; const source: PAnsiChar; sourceLen: Integer): Integer; cdecl; function compress2(dest: PAnsiChar; var destLen: Integer; const source: PAnsiChar; sourceLen: Integer; level: Integer): Integer; cdecl; function compressBound(sourceLen: Integer): Integer; cdecl; function uncompress(dest: PAnsiChar; var destLen: Integer; const source: PAnsiChar; sourceLen: Integer): Integer; cdecl; (* checksum functions *) function adler32(adler: Integer; const buf: PAnsiChar; len: Integer): Integer; cdecl; function crc32(crc: Integer; const buf: PAnsiChar; len: Integer): Integer; cdecl; (* various hacks, don't look :) *) function deflateInit_(var strm: z_stream; level: Integer; const version: PAnsiChar; stream_size: Integer): Integer; cdecl; function inflateInit_(var strm: z_stream; const version: PAnsiChar; stream_size: Integer): Integer; cdecl; function deflateInit2_(var strm: z_stream; level, method, windowBits, memLevel, strategy: Integer; const version: PAnsiChar; stream_size: Integer): Integer; cdecl; function inflateInit2_(var strm: z_stream; windowBits: Integer; const version: PAnsiChar; stream_size: Integer): Integer; cdecl; function inflateBackInit_(var strm: z_stream; windowBits: Integer; window: PByte; const version: PAnsiChar; stream_size: Integer): Integer; cdecl; { V8.70 was PAnsiChar } function deflateSetHeader(var strm: z_stream; var head: gz_header): integer; cdecl; function inflateGetHeader(var strm: z_stream; var head: gz_header): integer; cdecl; function zlibAllocMem(AppData: Pointer; Items, Size: Integer): Pointer; cdecl; procedure zlibFreeMem(AppData, Block: Pointer); cdecl; // function ZLibCheck (Code : Integer) : Integer; V8.70 moved to ZlibHigh // procedure ZLibError; V8.70 moved to ZlibHigh function ZLibFlagsString (ZLibFlag : tZLibFlag) : AnsiString; procedure ZLibSetDeflateStateItem (strm : TZStreamRec; Index : integer; Value : integer); function ZLibGetDeflateStateItem (strm : TZStreamRec; Index : integer) : integer; var Z_DS_MaxChainLen : integer; Z_DS_LazyMatch : integer; Z_DS_GoodMatch : integer; Z_DS_NiceMatch : integer; {==============================================================================} {$ENDIF CPUARM64} { V9.6 } {$ENDIF MSWINDOWS} implementation {$IFDEF MSWINDOWS} {$IFNDEF CPUARM64} { V9.6 } uses {$IFDEF RTL_NAMESPACES}System.SysUtils{$ELSE}SysUtils{$ENDIF}, OverbyteIcsZlibHigh; { V8.70 } { V8.70 moved to ZlibHigh } (* const {return code messages} ZLibErrMsg : array[-6..2] of PAnsiChar = ( 'incompatible version', // Z_VERSION_ERROR (-6) 'buffer error', // Z_BUF_ERROR (-5) 'insufficient memory', // Z_MEM_ERROR (-4) 'data error', // Z_DATA_ERROR (-3) 'stream error', // Z_STREAM_ERROR (-2) 'file error', // Z_ERRNO (-1) '', // Z_OK (0) 'stream end', // Z_STREAM_END (1) 'need dictionary' // Z_NEED_DICT (2) ); SZLibInvalid = 'Invalid ZStream operation!'; } type EZLibCheckError = class(Exception); *) // currently not importing gzio, minigzip, gzclose, gzread, gzwrite {$IFDEF WIN64} {$L zobj1212/win64/adler32.obj} {$L zobj1212/win64/compress.obj} {$L zobj1212/win64/crc32.obj} {$L zobj1212/win64/deflate.obj} { L zobj1212/win64/gzclose.obj} { L zobj1212/win64/gzread.obj} { L zobj1212/win64/gzio.obj} { L zobj1212/win64/gzwrite.obj} {$L zobj1212/win64/infback.obj} {$L zobj1212/win64/inffast.obj} {$L zobj1212/win64/inflate.obj} {$L zobj1212/win64/inftrees.obj} { L zobj1212/win64/minigzip.obj} {$L zobj1212/win64/trees.obj} {$L zobj1212/win64/uncompr.obj} {$L zobj1212/win64/zutil.obj} {$ENDIF WIN64} {$IFDEF WIN32} {$L zobj1212/adler32.obj} {$L zobj1212/compress.obj} {$L zobj1212/crc32.obj} {$L zobj1212/deflate.obj} { L zobj1212/gzclose.obj} { L zobj1212/gzread.obj} { L zobj1212/gzio.obj} { L zobj1212/gzwrite.obj} {$L zobj1212/infback.obj} {$L zobj1212/inffast.obj} {$L zobj1212/inflate.obj} {$L zobj1212/inftrees.obj} { L zobj1212/minigzip.obj} {$L zobj1212/trees.obj} {$L zobj1212/uncompr.obj} {$L zobj1212/zutil.obj} {$ENDIF WIN32} function adler32; external; function compress; external; function compress2; external; function compressBound; external; function crc32; external; function deflate; external; function deflateBound; external; function deflateCopy; external; function deflateEnd; external; function deflateInit_; external; function deflateInit2_; external; function deflateParams; external; function deflatePrime; external; function deflateReset; external; function deflateSetDictionary; external; function inflate; external; function inflateBack; external; function inflateBackEnd; external; function inflateBackInit_; external; function inflateCopy; external; function inflateEnd; external; function inflateInit_; external; function inflateInit2_; external; function inflateReset; external; function inflateSetDictionary; external; function inflateSync; external; function uncompress; external; function zlibCompileFlags; external; function zlibVersion; external; function deflateSetHeader; external; function inflateGetHeader; external; { Note: use of these gzio functions needs more C runtime declares here function gzOpen; external; function gzSetParams; external; function gzRead; external; function gzWrite; external; function gzClose; external; } {==============================================================================} {V8.70 moved to ZlibHigh function ZLibCheck(Code : Integer) : Integer; begin Result := Code; if (Code < 0) and (length(zlibProblemString) = 0) then begin zlibProblemAlert := true; if (Code < Z_VERSION_ERROR) then begin case Code of Z_DLL_NOT_FOUND : zlibProblemString := 'Dll not found'; Z_UNKNOWN_COMPRESSION_VERSION : zlibProblemString := 'Unknown compression stream version'; Z_CHECK_PROBLEM : zlibProblemString := 'Check problem'; else zlibProblemString := 'Error nｰ' + AnsiString(IntToStr(-Code)); end; end else zlibProblemString := ZLibErrMsg[Code]; if zlibRaiseError then raise EZLibCheckError.Create(String(zlibProblemString)); end; end; {==============================================================================} {V8.70 moved to ZlibHigh procedure ZLibError; begin if (length(zlibProblemString) = 0) then begin zlibProblemAlert := true; zlibProblemString := SZLibInvalid; if zlibRaiseError then raise EZLibCheckError.Create(SZLibInvalid); end; end; {==============================================================================} {V8.70 moved to ZlibHigh function zlibVersionDll : AnsiString; begin Result := zlibVersion ; end; {==============================================================================} function ZLibFlagsString(ZLibFlag : tZLibFlag) : AnsiString; var Flags : Cardinal; function FlagSize(L : Cardinal) : AnsiString; var N : Cardinal; begin N := (Flags shr L) and $0003; case N of 0 : Result := '16'; {uInt} 1 : Result := '32'; {uLong} 2 : Result := '64'; {voidpf} 3 : Result := '0'; {z_off_t} end; end; function FlagBit(L : Cardinal) : boolean; begin Result := (((Flags shr L) and $0001) = 1); end; begin Result := ''; Flags := zlibCompileFlags; case ZLibFlag of zfuInt : Result := 'uInt : ' + FlagSize(0); zfuLong : Result := 'uLong : ' + FlagSize(2); zfvoidpf : Result := 'voidpf : ' + FlagSize(4); zfz_off_t : Result := 'z_off_t : ' + FlagSize(6); zfdebug : if FlagBit(8) then Result := 'debug'; zfasm : if FlagBit(9) then Result := 'asm' else Result := 'noasm'; zfwinapi : if FlagBit(10) then Result := 'stdcall' else Result := 'cdecl'; zfbuildfixed : if FlagBit(12) then Result := 'buildfixed'; zfdynamic_crc_table : if FlagBit(13) then Result := 'dynamic_crc_table'; zfno_gzcompress : if FlagBit(16) then Result := 'no_gzcompress'; zfno_gzip : if FlagBit(17) then Result := 'no_gzip'; zfpkzip_bug : if FlagBit(20) then Result := 'pkzip_bug'; zffastest : if FlagBit(21) then Result := 'fastest'; end; end; {==============================================================================} { for XLB purposes only : access to internal zlib variables : only for versions 1.1.4 and 1.2.x; must be updated in future versions } const Z_DS_MaxItemsMax = 34; var Z_DS_MaxItems : integer; type pDeflateState = ^tDeflateState; tDeflateState = array[0..Z_DS_MaxItemsMax] of Integer; {覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧} (* dans match.s WSize 36 WMask 44 Window 48 Prev 56 MatchLen 88 PrevMatch 92 StrStart 100 MatchStart 104 Lookahead 108 PrevLen 112 MaxChainLen 116 GoodMatch 132 NiceMatch 136 *) procedure ZLibDeflateStateInit; begin Z_DS_MaxItems := 0; Z_DS_MaxChainLen := 0; Z_DS_LazyMatch := 0; Z_DS_GoodMatch := 0; Z_DS_NiceMatch := 0; Z_DS_MaxItems := Z_DS_MaxItemsMax; {34} Z_DS_MaxChainLen := 29; {116 / 4} Z_DS_LazyMatch := 30; Z_DS_GoodMatch := 33; {132 / 4} Z_DS_NiceMatch := 34; {136 / 4} end; {覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧} procedure ZLibSetDeflateStateItem(strm : TZStreamRec; Index : integer; Value : integer); var PtrDS : pDeflateState; begin if (Z_DS_MaxItems > 0) then begin PtrDS := pDeflateState(strm.state); if (PtrDS <> nil) and (Index in [0..Z_DS_MaxItems]) then PtrDS^[Index] := Value; end; end; {覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧} function ZLibGetDeflateStateItem(strm : TZStreamRec; Index : integer) : integer; var PtrDS : pDeflateState; begin Result := 0; if (Z_DS_MaxItems > 0) then begin PtrDS := pDeflateState(strm.state); if (PtrDS <> nil) and (Index in [0..Z_DS_MaxItems]) then Result := PtrDS^[Index]; end; end; function deflateInit(var strm: z_stream; level: Integer): Integer; begin // if not Assigned(strm.zalloc) then strm.zalloc := zlibAllocMem; // if not Assigned(strm.zfree) then strm.zfree := zlibFreeMem; Result := deflateInit_(strm, level, ZLIB_VERSION, sizeof(z_stream)); end; function deflateInit2(var strm: z_stream; level, method, windowBits, memLevel, strategy: Integer): Integer; begin // if not Assigned(strm.zalloc) then strm.zalloc := zlibAllocMem; // if not Assigned(strm.zfree) then strm.zfree := zlibFreeMem; Result := deflateInit2_(strm, level, method, windowBits, memLevel, strategy, ZLIB_VERSION, sizeof(z_stream)); end; (* V8.70 moved to ZlibHigh const WBits : array[TZStreamType] of integer = (MAX_WBITS, MAX_WBITS + 16, -MAX_WBITS); function deflateInitEx(var strm: z_stream; level: Integer; streamtype: TZStreamType = zsZLib): Integer; begin Result := deflateInit2(strm, level, Z_DEFLATED, WBits[streamtype], MAX_MEM_LEVEL, Z_DEFAULT_STRATEGY); end; function inflateInitEx(var strm: z_stream; streamtype: TZStreamType = zsZLib): Integer; begin Result := inflateInit2(strm, WBits[streamtype]); end; *) function inflateInit(var strm: z_stream): Integer; begin // if not Assigned(strm.zalloc) then strm.zalloc := zlibAllocMem; // if not Assigned(strm.zfree) then strm.zfree := zlibFreeMem; Result := inflateInit_(strm, ZLIB_VERSION, sizeof(z_stream)); end; function inflateInit2(var strm: z_stream; windowBits: Integer): Integer; begin // if not Assigned(strm.zalloc) then strm.zalloc := zlibAllocMem; // if not Assigned(strm.zfree) then strm.zfree := zlibFreeMem; Result := inflateInit2_(strm, windowBits, ZLIB_VERSION, sizeof(z_stream)); end; function inflateBackInit(var strm: z_stream; windowBits: Integer; window: PByte): Integer; { V8.70 was integer } begin Result := inflateBackInit_(strm, windowBits, window, ZLIB_VERSION, sizeof(z_stream)); end; {$IFDEF WIN64} function malloc(Size: Integer): Pointer; begin GetMem(Result, Size); end; procedure free(Block: Pointer); begin FreeMem(Block); end; procedure memset(P: Pointer; B: Byte; count: Integer); begin FillChar(P^, count, B); end; procedure memcpy(dest, source: Pointer; count: Integer); begin Move(source^, dest^, count); end; {$ENDIF WIN64} {$IFDEF WIN32} function malloc(Size: Integer): Pointer; cdecl; begin GetMem(Result, Size); end; procedure free(Block: Pointer); cdecl; begin FreeMem(Block); end; procedure memset(P: Pointer; B: Byte; count: Integer); cdecl; begin FillChar(P^, count, B); end; procedure memcpy(dest, source: Pointer; count: Integer); cdecl; begin Move(source^, dest^, count); end; procedure _llmod; { V8.69 } asm jmp System.@_llmod; end; {$ENDIF WIN32} function zlibAllocMem(AppData: Pointer; Items, Size: Integer): Pointer; cdecl; begin GetMem(Result, Items*Size); // Result := AllocMem(Items * Size); end; procedure zlibFreeMem(AppData, Block: Pointer); cdecl; begin FreeMem(Block); end; {==============================================================================} { EZLibCheckError } initialization ZLibDeflateStateInit; // zlibProblemAlert := false; V8.70 moved to ZLibHigh // zlibProblemString := ''; // zlibRaiseError := true; // ZLibWinapi := false; // zlibDllLoaded := true ; // really OBJ files linked here finalization {==============================================================================} {$ENDIF CPUARM64} { V9.6 } {$ENDIF MSWINDOWS} end.