version 1.5, 1998/04/14 16:43:21
|
version 1.7, 2007/02/08 14:07:28
|
Line 23
|
Line 23
|
\ from MEMORY : |
\ from MEMORY : |
\ allocate |
\ allocate |
|
|
: nalign ( addr1 n -- addr2 ) |
: naligned ( addr1 n -- addr2 ) |
\ addr2 is the aligned version of addr1 wrt the alignment size n |
\ addr2 is the aligned version of addr1 wrt the alignment size n |
1- tuck + swap invert and ; |
1- tuck + swap invert and ; |
|
|
|
: nalign naligned ; \ old name, obsolete |
|
|
: dofield ( -- ) |
: dofield ( -- ) |
does> ( name execution: addr1 -- addr2 ) |
does> ( name execution: addr1 -- addr2 ) |
Line 82 cell% 2* 2constant double%
|
Line 84 cell% 2* 2constant double%
|
: %allocate ( align size -- addr ior ) |
: %allocate ( align size -- addr ior ) |
nip allocate ; |
nip allocate ; |
|
|
: %alloc ( size align -- addr ) |
: %alloc ( align size -- addr ) |
%allocate throw ; |
%allocate throw ; |