| \ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
| \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
| |
|
| : nalign ( addr1 n -- addr2 ) \ gforth |
: naligned ( addr1 n -- addr2 ) \ gforth |
| \g @code{addr2} is the aligned version of @code{addr1} wrt the |
\g @code{addr2} is the aligned version of @code{addr1} wrt the |
| \g alignment @code{n}. |
\g alignment @code{n}. |
| 1- tuck + swap invert and ; |
1- tuck + swap invert and ; |
| |
|
| |
' naligned alias nalign \ old name, obsolete |
| |
|
| : dozerofield ( -- ) |
: dozerofield ( -- ) |
| \ a field that makes no change |
\ a field that makes no change |
| \ to enable accessing the offset with "['] <field> >body @" this |
\ to enable accessing the offset with "['] <field> >body @" this |
