home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp11demo.zip / rtlsrc.rar / tv / MEMORY.PAS < prev    next >
Pascal/Delphi Source File  |  1996-10-08  |  1KB  |  44 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Version 7.0                        }
  5. {       Turbo Vision Unit                               }
  6. {                                                       }
  7. {       Copyright (c) 1992 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10. {$PureInt+}
  11. unit Memory;
  12.  
  13. {$X+,I-,S-,Q-}
  14.  
  15. interface
  16.  
  17. uses Use32;
  18.  
  19. const
  20.   LowMemSize: Word = 4096 div 16;       {   4K }
  21.  
  22. procedure InitMemory;
  23. procedure DoneMemory;
  24. procedure InitDosMem;
  25. procedure DoneDosMem;
  26. function LowMemory: Boolean;
  27. function MemAlloc(Size: Word): Pointer;
  28. procedure NewCache(var P: Pointer; Size: Word);
  29. procedure DisposeCache(P: Pointer);
  30. procedure NewBuffer(var P: Pointer; Size: Word);
  31. procedure DisposeBuffer(P: Pointer);
  32. function GetBufferSize(P: Pointer): Word;
  33. function SetBufferSize(P: Pointer; Size: Word): Boolean;
  34.  
  35. { The following procedure is not implemented
  36.  
  37. function MemAllocSeg(Size: Word): Pointer;
  38.  
  39. }
  40.  
  41. implementation
  42.  
  43. end.
  44.