home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / DELPHIMM.PAS < prev    next >
Pascal/Delphi Source File  |  1997-01-16  |  1KB  |  46 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Runtime Library                          }
  5. {       Memory Manager Unit                             }
  6. {                                                       }
  7. {       Copyright (C) 1996 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. library BCBMM;
  12.  
  13. uses Windows;
  14.  
  15. {$IMAGEBASE $41000000}
  16.  
  17. function GetAllocMemCount: Integer;
  18. begin
  19.   Result := AllocMemCount;
  20. end;
  21.  
  22. function GetAllocMemSize: Integer;
  23. begin
  24.   Result := AllocMemSize;
  25. end;
  26.  
  27. procedure DumpBlocks;
  28. begin
  29. end;
  30.  
  31. exports
  32.   SysGetMem name     '@System@SysGetMem$qqri',
  33.   SysFreeMem name    '@System@SysFreeMem$qqrpv',
  34.   SysReallocMem name '@System@SysReallocMem$qqrpvi',
  35.   GetMemory,
  36.   FreeMemory,
  37.   ReallocMemory,
  38.   GetHeapStatus,
  39.   GetAllocMemCount,
  40.   GetAllocMemSize,
  41.   DumpBlocks;
  42.  
  43. begin
  44.   IsMultiThread := True;
  45. end.
  46.