home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Source / Rtl / Sys / DELPHIMM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  1.5 KB  |  44 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Runtime Library                  }
  5. {       Memory Manager Unit                             }
  6. {                                                       }
  7. {       Copyright (C) 1997,99 Inprise Corporation       }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. library DelphiMM;
  12.  
  13. {$IMAGEBASE $41008000}
  14. {$R *.RES}
  15.  
  16. const
  17.   BorlandMM = 'borlndmm.dll';
  18.  
  19. function SysGetMem(Size: Integer): Pointer; external BorlandMM name '@Borlndmm@SysGetMem$qqri';
  20. function SysFreeMem(P: Pointer): Integer; external BorlandMM name '@Borlndmm@SysFreeMem$qqrpv';
  21. function SysReallocMem(P: Pointer; Size: Integer): Pointer; external BorlandMM name '@Borlndmm@SysReallocMem$qqrpvi';
  22. function GetHeapStatus: THeapStatus; external BorlandMM;
  23. function GetAllocMemCount: Integer; external BorlandMM;
  24. function GetAllocMemSize: Integer; external BorlandMM;
  25. procedure DumpBlocks; external BorlandMM;
  26. function GetMemory(Size: Integer): Pointer; cdecl; external BorlandMM;
  27. function FreeMemory(P: Pointer): Integer; cdecl; external BorlandMM;
  28. function ReallocMemory(P: Pointer; Size: Integer): Pointer; cdecl; external BorlandMM;
  29.  
  30. exports
  31.   SysGetMem,
  32.   SysFreeMem,
  33.   SysReallocMem,
  34.   GetMemory,
  35.   FreeMemory,
  36.   ReallocMemory,
  37.   DumpBlocks,
  38.   GetHeapStatus,
  39.   GetAllocMemCount,
  40.   GetAllocMemSize;
  41.  
  42. begin
  43. end.
  44.