gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.19, 1996/05/13 16:36:55	version 1.22, 1997/07/06 16:00:11
Line 55 dofield: lastxt code-address! \ change t	Line 55 dofield: lastxt code-address! \ change t

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

: fconstant ( r -- ) \ float	: fconstant ( r "name" -- ) \ float
Create f,	Create f,
DOES> ( -- r )	DOES> ( -- r )
f@ ;	f@ ;

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

: FLit ( -- r ) r> dup f@ float+ >r ;	: FLit ( -- r ) r> dup f@ float+ >r ;
: FLiteral ( r -- )	: FLiteral ( r -- )
Line 98 DOES> ( -- r )	Line 98 DOES> ( -- r )
scratch over c@ emit '. emit 1 /string type	scratch over c@ emit '. emit 1 /string type
'E emit . ;	'E emit . ;

require debugging.fs	require debugs.fs

: sfnumber ( c-addr u -- r true \| false )	: sfnumber ( c-addr u -- r true \| false )
2dup [CHAR] e scan ( c-addr u c-addr2 u2 )	2dup [CHAR] e scan ( c-addr u c-addr2 u2 )
Line 131 IS compiler-notfound	Line 131 IS compiler-notfound
ENDIF ;	ENDIF ;
IS interpreter-notfound	IS interpreter-notfound

: fvariable ( -- )	: fvariable ( "name" -- ) \ float
Create 0.0E0 f, ;	Create 0.0E0 f, ;
\ does> ( -- f-addr )	\ does> ( -- f-addr )