home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Pascal V7.0 / INTRFACE.ZIP / MEMORY.INT < prev    next >
Encoding:
Text File  |  1992-10-30  |  1.3 KB  |  39 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Version 7.0                        }
  5. {       Turbo Vision Unit                               }
  6. {                                                       }
  7. {       Copyright (c) 1991,92 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Memory;
  12.  
  13. {$O+,F+,X+,I-,S-}
  14.  
  15. interface
  16.  
  17. const
  18.   MaxHeapSize: Word = 655360 div 16;    { 640K }
  19.   LowMemSize: Word = 4096 div 16;       {   4K }
  20.   MaxBufMem: Word = 65536 div 16;       {  64K }
  21.  
  22. procedure InitMemory;
  23. procedure DoneMemory;
  24. procedure InitDosMem;
  25. procedure DoneDosMem;
  26. function LowMemory: Boolean;
  27. function MemAlloc(Size: Word): Pointer;
  28. function MemAllocSeg(Size: Word): Pointer;
  29. procedure NewCache(var P: Pointer; Size: Word);
  30. procedure DisposeCache(P: Pointer);
  31. procedure NewBuffer(var P: Pointer; Size: Word);
  32. procedure DisposeBuffer(P: Pointer);
  33. function GetBufferSize(P: Pointer): Word;
  34. function SetBufferSize(P: Pointer; Size: Word): Boolean;
  35. procedure GetBufMem(var P: Pointer; Size: Word);
  36. procedure FreeBufMem(P: Pointer);
  37. procedure SetMemTop(MemTop: Pointer);
  38.  
  39.