[Win32forth-cvs] win32forth/src FLOAT.F,1.36,1.37

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

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3736/win32forth/src

Modified Files:
	FLOAT.F 
Log Message:
gah: More Dexing (still work in progress) optimizations and bug fixes

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** FLOAT.F	8 Feb 2006 10:51:43 -0000	1.36
--- FLOAT.F	13 Feb 2006 14:02:19 -0000	1.37
***************
*** 1447,1453 ****
  \ added '@' after FLOATSP to fix a bug reported by Pierre Abbat
  : F~            ( -- flag ; fs: r1 r2 r3 -- )  \ ANSI        Floating ext
! \ *G If r3 is positive, flag is true if the absolute value of (r1 minus r2) is less than r3.
! \ ** If r3 is zero, flag is true if the implementation-dependent encoding of r1 and r2 are
! \ ** exactly identical (positive and negative zero are unequal if they have distinct encodings).
  \ ** If r3 is negative, flag is true if the absolute value of (r1 minus r2) is less than the
  \ ** absolute value of r3 times the sum of the absolute values of r1 and r2.
--- 1447,1453 ----
  \ added '@' after FLOATSP to fix a bug reported by Pierre Abbat
  : F~            ( -- flag ; fs: r1 r2 r3 -- )  \ ANSI        Floating ext
! \ *G If r3 is positive, flag is true if the absolute value of (r1 minus r2) is less than
! \ ** r3. If r3 is zero, flag is true if the implementation-dependent encoding of r1 and
! \ ** r2 are exactly identical (positive and negative zero are unequal).
  \ ** If r3 is negative, flag is true if the absolute value of (r1 minus r2) is less than the
  \ ** absolute value of r3 times the sum of the absolute values of r1 and r2.
***************
*** 1660,1664 ****
                  >r 2dup blank r> count                  \ addr1 u addr2 v
                  rot umin >r swap r> move
!                 0x7fffffff 0 fdrop ;
  
  external
--- 1660,1664 ----
                  >r 2dup blank r> count                  \ addr1 u addr2 v
                  rot umin >r swap r> move
!                 0x7fffffff false fdrop ;
  
  external