home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SORT2.ZIP / HEAPMEM.FUN < prev    next >
Encoding:
Text File  |  1993-01-04  |  377 b   |  12 lines
  1. { These are taken almost verbatim from Borland documents dealing with
  2.   heap management. }
  3.  
  4. { The reference for grain must be established externally }
  5.  
  6. procedure getmem(var p:lp; size:word);
  7. begin system.getmem(p,(size+grain) and ($FFFF - grain + 1)); end;
  8.  
  9. procedure freemem(var p:lp; size:word);
  10. begin system.freemem(p,(size+grain) and ($FFFF - grain +1)); end;
  11.  
  12.