Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26990/win32forth/src
Modified Files:
FLOAT.F
Log Message:
gah: More Dexing (still work in progress)
Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** FLOAT.F 1 Feb 2006 11:44:48 -0000 1.29
--- FLOAT.F 1 Feb 2006 12:42:14 -0000 1.30
***************
*** 1212,1215 ****
--- 1212,1217 ----
code FLN ( fs: r1 -- r2 ) \ ANSI Floating ext
+ \ *G r2 is the natural logarithm of r1. If r1 is ±0 then r2 is -infinity. If r1
+ \ ** is infinity then r2 is infinity. If r1 is less than zero then r2 is a NAN.
fstack-check_1
fldln2
***************
*** 1220,1224 ****
code FLNP1 ( fs: r1 -- r2 ) \ ANSI Floating ext
! \ *G ? error for x <= -1
fstack-check_1
fldln2
--- 1222,1228 ----
code FLNP1 ( fs: r1 -- r2 ) \ ANSI Floating ext
! \ *G r2 is the natural logarithm of the quantity r1 plus one. If r1 is -1.0 then
! \ ** r2 is -infinity. If r1 is infinity then r2 is infinity. If r1 is less than
! \ ** -1.0 then r2 is a NAN.
fstack-check_1
fldln2
|
