Menu
▾
▴
[Win32forth-cvs] win32forth/src FLOAT.F,1.42,1.43
|
From: George H. <geo...@us...> - 2006-02-25 10:39:39
|
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 |
