TMemoryManager

type TMemoryManager = record

  NeedLock: Boolean;

Does the memory manager require a lock

  Getmem: function(

Function called when memory must be allocated on the heap.

  Size: PtrInt

):Pointer;

  Freemem: function(

Function called when previously allocated memory can be freed again.

  p: pointer

):PtrInt;

  FreememSize: function(

Function called when previously allocated memory with a known size can be freed again.

  p: pointer;

  Size: PtrInt

):PtrInt;

  AllocMem: function(

Same as getmem.

  Size: PtrInt

):Pointer;

  ReAllocMem: function(

Handler called when an allocated memory block should be resized

  var p: pointer;

  Size: PtrInt

):Pointer;

  MemSize: function(

Return the size of a memory block.

  p: pointer

):PtrInt;

  GetHeapStatus: function: THeapStatus;

Handler called when the heap status must be reported.

  GetFPCHeapStatus: function: TFPCHeapStatus;

end;