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
|
