gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.38, 2002/11/02 15:26:03	version 1.39, 2002/12/05 19:25:23
Line 72 DOES> ( -- r )	Line 72 DOES> ( -- r )
\G floating-point stack.	\G floating-point stack.
fp0 @ fp@ - [ 1 floats ] Literal / ;	fp0 @ fp@ - [ 1 floats ] Literal / ;

: FLit ( -- r ) r> dup f@ float+ >r ;
: FLiteral ( compilation r -- ; run-time -- r ) \ float f-literal	: FLiteral ( compilation r -- ; run-time -- r ) \ float f-literal
\G Compile appropriate code such that, at run-time, @i{r} is placed	\G Compile appropriate code such that, at run-time, @i{r} is placed
\G on the (floating-point) stack. Interpretation semantics are undefined.	\G on the (floating-point) stack. Interpretation semantics are undefined.
BEGIN here cell+ dup faligned <> WHILE postpone noop REPEAT	BEGIN here cell+ cell+ dup faligned <> WHILE postpone noop REPEAT
postpone FLit f, ; immediate	postpone ahead here >r f, postpone then
	r> postpone literal postpone f@ ; immediate

&15 Value precision ( -- u ) \ float-ext	&15 Value precision ( -- u ) \ float-ext
\G @i{u} is the number of significant digits currently used by	\G @i{u} is the number of significant digits currently used by