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 -- ) |