retroforth/package/extensions/malloc.retro

# Malloc

~~~
{{
  :mem:invoke #15 io:scan-for io:invoke ;

  #0 'ALLOC  const
  #1 'FREE   const
  #2 'STORE  const
  #3 'FETCH  const
  #4 'RESIZE const

---reveal---

  :mem:alloc  (n--a) ALLOC  mem:invoke ;
  :mem:store  (an--) STORE  mem:invoke ;
  :mem:fetch  (a--n) FETCH  mem:invoke ;
  :mem:free   (a--)  FREE   mem:invoke ;
  :mem:resize (an--) RESIZE mem:invoke ;
}}

:mem:cell+ (nn-n) #8 * + ;
:mem:fetch-double (n-nn)
  dup #1 mem:cell+ fetch push mem:fetch pop ;
:mem:store-double (ann-nn)
  push push dup-pair #1 mem:cell+ pop mem:store pop mem:store ;
~~~