borlndmm.dpr

来自「delphi开发语言下的源代码分析」· DPR 代码 · 共 32 行

library Borlndmm;

// UNKNOWN
// procedure HeapAddRef;
// procedure HeapRelease;
procedure DumpBlocks;
begin
  // UNKNOWN
end;

function GetAllocMemCount: Integer;
begin
  Result := System.AllocMemCount;
end;

function GetAllocMemSize: Integer;
begin
  Result := System.AllocMemSize;
end;

exports
//  HeapAddRef name '@Borlndmm@HeapAddRef$qqrv',
//  HeapRelease name '@Borlndmm@HeapRelease$qqrv',
  DumpBlocks, GetHeapStatus, SysGetMem, SysFreeMem, SysReallocMem,
  System.SysGetMem name '@Borlndmm@SysGetMem$qqri',
  System.SysFreeMem name '@Borlndmm@SysFreeMem$qqrpv',
  System.SysReallocMem name '@Borlndmm@SysReallocMem$qqrpvi';

begin
  System.IsMultiThread := True;
end.