blob: 737b23eb04c0670f7344255581591153463ebe89 (
plain)
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
|
type
mcheck_status = (
MCHECK_DISABLED := -(1),
MCHECK_OK := 0,
MCHECK_FREE := 1,
MCHECK_HEAD := 2,
MCHECK_TAIL := 3
);
type
TMemCheckAbortProc = procedure(MCheckStatus: mcheck_status); cdecl; // Used anonymously in header file
function mcheck(__abortfunc: TMemCheckAbortProc):longint;cdecl;external clib name 'mcheck';
function mcheck_pedantic(__abortfunc:TMemCheckAbortProc):longint;cdecl;external clib name 'mcheck_pedantic';
procedure mcheck_check_all;cdecl;external clib name 'mcheck_check_all';
function mprobe(__ptr:pointer):mcheck_status;cdecl;external clib name 'mprobe';
procedure mtrace;cdecl;external clib name 'mtrace';
procedure muntrace;cdecl;external clib name 'muntrace';
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
// Type
|