gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.11, 1995/01/19 17:48:01	version 1.14, 1995/02/08 13:38:51
Line 26	Line 26

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

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

: fvariable
falign here 0. d>f f, AConstant ;

: fdepth ( -- n ) f0 @ fp@ - [ 1 floats ] Literal / ;	: fdepth ( -- n ) f0 @ fp@ - [ 1 floats ] Literal / ;

: FLit ( -- r ) r> faligned dup f@ float+ >r ;	: FLit ( -- r ) r> dup f@ float+ >r ;
: FLiteral ( r -- ) postpone FLit falign f, ; immediate	: FLiteral ( r -- )
	BEGIN here cell+ dup faligned <> WHILE postpone noop REPEAT
	postpone FLit f, ; immediate

&16 Value precision	&15 Value precision
: set-precision to precision ;	: set-precision to precision ;

: scratch ( r -- addr len )	: scratch ( r -- addr len )
Line 83	Line 81

' sfnumber IS notfound	' sfnumber IS notfound

	: fvariable ( -- )
	Create 0e0 f, ;
	\ does> ( -- f-addr )

1e0 fasin 2e0 f* fconstant pi	1e0 fasin 2e0 f* fconstant pi

: f2* 2e0 f* ;	: f2* 2e0 f* ;
: f2/ 2e0 f/ ;	: f2/ .5e0 f* ;
: 1/f 1e0 fswap f/ ;	: 1/f 1e0 fswap f/ ;