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

Changed the memory allocation/deallocation to match the new ReAllocMem structure.

Browse Source
This commit is contained in:
lazarus 1999-10-31 06:24:18 +00:00
parent 71d7f4ef38
commit ef17ea6ec2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcl/inc/zstream.pp
View File

@ -119,14 +119,14 @@ begin
DFreeMem(P);
end;
function zlibAllocMem(AppData: Pointer; Items, Size: Integer): Pointer;cdecl;
function zlibAllocMem(opaque:pointer; items:uInt; size:uInt):pointer;cdecl;
begin
Result:=DGetMem(Items*Size);
end;
procedure zlibFreeMem(AppData, Block: Pointer);cdecl;
procedure zlibFreeMem(opaque:pointer; address:pointer);cdecl;
begin
DFreeMem(Block);
DFreeMem(address);
end;