Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20001/win32forth/src
Modified Files:
FLOAT.F
Log Message:
gah: More documenting of float.f (still work in progress).
Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** FLOAT.F 4 Feb 2006 10:53:47 -0000 1.32
--- FLOAT.F 6 Feb 2006 15:05:20 -0000 1.33
***************
*** 66,70 ****
in-application
! code >fregs ( addr -- ) \ Restore x87 FPU State
frstor DATASTACK_MEMORY
pop tos
--- 66,84 ----
in-application
! \ *N Loading and saving FPU registers
!
[...1397 lines suppressed...]
+ \ ** Ealier versions need to add
+ \ **
+ \ ** : new-reset-stacks [ defer@ reset-stacks compile, ] my-reset-stacks ;
+ \ ** new-reset-stacks is reset-stacks
+
+ \ *E You can test for the presence of NANs with;
+ \ **
+ \ ** .... fdup f= 0= ....
+ \ **
+ \ ** which returns true only for NANs. You can test for both NANs and infinities with;
+ \ **
+ \ ** .... fdup f- f0= 0=
+ \ **
+ \ ** and for infinities with;
+ \ **
+ \ ** .... fabs finf f=
+ \ **
+
+
\ *Z
|
