gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.21, 1997/05/21 20:39:25	version 1.23, 1998/12/08 22:02:42
Line 1	Line 1
\ High level floating point 14jan94py	\ High level floating point 14jan94py

\ Copyright (C) 1995 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 60 dofield: lastxt code-address! \ change t	Line 60 dofield: lastxt code-address! \ change t
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 -- )