gforth/struct.fs - diff

Return to struct.fs CVS log

Up to [gforth] / gforth

version 1.13, 1998/04/14 16:43:07	version 1.14, 1999/02/22 21:39:42
Line 18	Line 18
\ 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