gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.61, 2011/10/07 17:10:15	version 1.63, 2011/12/28 13:39:49
Line 88 DOES> ( -- r )	Line 88 DOES> ( -- r )
\G @code{F.} @code{FE.} and @code{FS.} to @i{u}.	\G @code{F.} @code{FE.} and @code{FS.} to @i{u}.
to precision ;	to precision ;

: scratch ( r -- addr len )	: scratch ( -- addr len )
pad precision - precision ;	pad precision - precision ;

: zeros ( n -- ) 0 max 0 ?DO '0 emit LOOP ;	: zeros ( n -- ) 0 max 0 ?DO '0 emit LOOP ;
Line 142 DOES> ( -- r )	Line 142 DOES> ( -- r )
THEN ;	THEN ;

[ifdef] recognizer:	[ifdef] recognizer:
' noop	[IFDEF] 2lit,
:noname postpone Fliteral ;	: flit, postpone Fliteral ;
	:noname ['] noop ;
	:noname ['] flit, ;
	[ELSE]
	' noop
	:noname postpone Fliteral ;
	[THEN]
dup	dup
recognizer: r:fnumber	recognizer: r:fnumber