[Win32forth-cvs] win32forth/src FLOAT.F,1.32,1.33

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

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