gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.1, 1994/02/11 16:30:46	version 1.2, 1994/05/07 14:55:49
Line 3	Line 3
: faligned ( addr -- f-addr )	: faligned ( addr -- f-addr )
[ 1 floats 1- ] Literal + [ -1 floats ] Literal and ;	[ 1 floats 1- ] Literal + [ -1 floats ] Literal and ;

: falign ( -- ) here dup aligned swap	: falign ( -- )
	here dup aligned swap
?DO bl c, LOOP ;	?DO bl c, LOOP ;

: f, ( f -- ) here 1 floats allot f! ;	: f, ( f -- ) here 1 floats allot f! ;

	\ !! have create produce faligned pfas
: fconstant ( r -- )	: fconstant ( r -- )
Create falign f,	Create falign f,
DOES> faligned f@ ;	DOES> faligned f@ ;