version 1.22, 2003/03/22 10:04:07
|
version 1.23, 2007/02/08 14:07:26
|
Line 102 cell% 2* 2constant double%
|
Line 102 cell% 2* 2constant double%
|
\g similar to @code{allocate}. |
\g similar to @code{allocate}. |
nip allocate ; |
nip allocate ; |
|
|
: %alloc ( size align -- addr ) \ gforth |
: %alloc ( align size -- addr ) \ gforth |
\g Allocate @var{size} address units with alignment @var{align}, |
\g Allocate @var{size} address units with alignment @var{align}, |
\g giving a data block at @var{addr}; @code{throw} an ior code |
\g giving a data block at @var{addr}; @code{throw} an ior code |
\g if not successful. |
\g if not successful. |