gforth/compat/struct.fs - diff

Return to struct.fs CVS log

Up to [gforth] / gforth / compat

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 ;