Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8805/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.42
retrieving revision 1.43
diff -C2 -d -r1.42 -r1.43
*** FLOAT.F 24 Feb 2006 11:37:58 -0000 1.42
--- FLOAT.F 25 Feb 2006 10:39:32 -0000 1.43
***************
*** 1366,1371 ****
fxch st(1) \ frac \ 2
f2xm1 \ (2**frac) - 1 \ 2
! fmul st(0), st(1) \ 2**(int + frac) - 2**int \ 2
! faddp st(1), st \ 2**(int + frac) \ 1
L$2: FPU> \ 0
float;
--- 1366,1372 ----
fxch st(1) \ frac \ 2
f2xm1 \ (2**frac) - 1 \ 2
! fld1 \ 1.0 \ 3
! faddp st(1), st \ 2**frac \ 2
! fmulp st(1), st \ 2**(int + frac) \ 1
L$2: FPU> \ 0
float;
***************
*** 1414,1419 ****
fxch st(1) \ frac \ 2
f2xm1 \ (2**frac) - 1 \ 2
! fmul st(0), st(1) \ 2**(int + frac) - 2**int \ 2
! faddp st(1), st \ 2**(int + frac) \ 1
fld1
fsubp st(1), st
--- 1415,1421 ----
fxch st(1) \ frac \ 2
f2xm1 \ (2**frac) - 1 \ 2
! fld1 \ 1.0 \ 3
! faddp st(1), st \ 2**frac \ 2
! fmulp st(1), st \ 2**(int + frac) \ 1
fld1
fsubp st(1), st
|
