version 1.5, 1998/04/14 16:43:21
|
version 1.6, 1999/02/22 21:39:43
|
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 ) |