fpc/packages/base/libc/malloch.inc
2005-02-14 17:13:06 +00:00

77 lines
2.7 KiB
PHP

var
__malloc_initialized : longint;cvar;external;
function malloc(__size:size_t):pointer;cdecl;external clib name 'malloc';
function calloc(__nmemb:size_t; __size:size_t):pointer;cdecl;external clib name 'calloc';
function realloc(__ptr:pointer; __size:size_t):pointer;cdecl;external clib name 'realloc';
procedure free(__ptr:pointer);cdecl;external clib name 'free';
procedure cfree(__ptr:pointer);cdecl;external clib name 'cfree';
function memalign(__alignment:size_t; __size:size_t):pointer;cdecl;external clib name 'memalign';
function valloc(__size:size_t):pointer;cdecl;external clib name 'valloc';
function pvalloc(__size:size_t):pointer;cdecl;external clib name 'pvalloc';
var
__morecore : function (__size:ptrdiff_t):pointer;cvar;external;
function __default_morecore(__size:ptrdiff_t):pointer;cdecl;external clib name '__default_morecore';
type
Pmallinfo = ^_mallinfo;
_mallinfo = record
arena : longint;
ordblks : longint;
smblks : longint;
hblks : longint;
hblkhd : longint;
usmblks : longint;
fsmblks : longint;
uordblks : longint;
fordblks : longint;
keepcost : longint;
end;
// not sure about this one ? Returns struct value??
function mallinfo:_mallinfo;cdecl;external clib name 'mallinfo';
const
M_MXFAST = 1;
M_NLBLKS = 2;
M_GRAIN = 3;
M_KEEP = 4;
M_TRIM_THRESHOLD = -1;
M_TOP_PAD = -2;
M_MMAP_THRESHOLD = -3;
M_MMAP_MAX = -4;
M_CHECK_ACTION = -5;
function mallopt(__param:longint; __val:longint):longint;cdecl;external clib name 'mallopt';
function malloc_trim(__pad:size_t):longint;cdecl;external clib name 'malloc_trim';
function malloc_usable_size(__ptr:pointer):size_t;cdecl;external clib name 'malloc_usable_size';
procedure malloc_stats;cdecl;external clib name 'malloc_stats';
function malloc_get_state:pointer;cdecl;external clib name 'malloc_get_state';
function malloc_set_state(__ptr:pointer):longint;cdecl;external clib name 'malloc_set_state';
var
__malloc_initialize_hook : procedure ;cvar;external;
__free_hook : procedure (__ptr:pointer; _para2:pointer);cvar;external;
__malloc_hook : function (__size:size_t; _para2:pointer):pointer;cvar;external;
__realloc_hook : function (__ptr:pointer; __size:size_t; _para3:pointer):pointer;cvar;external;
__memalign_hook : function (__alignment:size_t; __size:size_t; _para3:pointer):pointer;cvar;external;
__after_morecore_hook : procedure ;cvar;external;
procedure __malloc_check_init;cdecl;external clib name '__malloc_check_init';
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
Type
TMallocInfo = _mallinfo;
PMallocInfo = ^TMallocInfo;