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

* Fixed signature of zliballocmem

Browse Source 
git-svn-id: trunk@17210 -
This commit is contained in:
michael 2011-03-31 11:17:49 +00:00
parent d3fe020a55
commit d4b071ed9a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1212,7 +1212,7 @@ function zError(err: cint): pchar; cdecl; external libz name 'zError';
function inflateSyncPoint(var z: z_stream): cint; cdecl; external libz name 'inflateSyncPoint';
function get_crc_table: pointer; cdecl; external libz name 'get_crc_table';
function zlibAllocMem(AppData: Pointer; Items, Size: Integer): Pointer; cdecl;
function zlibAllocMem(AppData: Pointer; Items, Size: UInt): Pointer; cdecl;
procedure zlibFreeMem(AppData, Block: Pointer); cdecl;
implementation
@ -1242,7 +1242,7 @@ begin
Result := inflateBackInit_(strm, windowBits, window, ZLIB_VERSION, sizeof(z_stream));
end;
function zlibAllocMem(AppData: Pointer; Items, Size: Integer): Pointer; cdecl;
function zlibAllocMem(AppData: Pointer; Items, Size: UInt): Pointer; cdecl;
begin
Result := AllocMem(Items * Size);