Mem.txt


\ Mem 98.11.3 8:34 pm NAB
\ after code by ERS

1 constant memerr
: (allocate) ( u -- a. ior )
  0 MemPtrNew 2dup or
  0= memerr and ;
: (free) ( a. -- ior ) MemChunkFree ;
: (size) ( a. -- u ) MemPtrSize drop ;
: (resize) ( a. u -- ior )
  0 2swap MemPtrResize ;


  HTMLized by Forth2HTML