1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

unit CMemMan;

interface

procedure free(p: Pointer); cdecl;
function malloc(Size: Integer): Pointer; cdecl;
function realloc(p: Pointer; Size: Integer): Pointer; cdecl;

implementation

const
  msvcrt = 'msvcrt.dll';

procedure free(p: Pointer); cdecl; external msvcrt;
function malloc(Size: Integer): Pointer; cdecl; external msvcrt;
function realloc(p: Pointer; Size: Integer): Pointer; cdecl; external msvcrt;

function CGetMem(Size: Integer): Pointer;
begin
  Result := malloc(Size);
end;

function CFreeMem(p: Pointer): Integer;
begin
  free(p);
  Result := 0;
end;

function CReallocMem(p: Pointer; Size: Integer): Pointer;
begin
  Result := realloc(p, Size);
end;

const
  CMemoryManager: TMemoryManager = (
    GetMem: CGetMem;
    FreeMem: CFreeMem;
    ReallocMem: CReallocMem;
  );

initialization
  SetMemoryManager(CMemoryManager);

finalization

end.