[Win32forth-cvs] win32forth/src FLOAT.F,1.29,1.30

[George H. <geo...@us...>]

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