[Win32forth-cvs] win32forth/src FLOAT.F,1.53,1.54

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

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv3460

Modified Files:
	FLOAT.F 
Log Message:
Fixed bug in FEXPM1

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.53
retrieving revision 1.54
diff -C2 -d -r1.53 -r1.54
*** FLOAT.F	5 Oct 2008 20:29:32 -0000	1.53
--- FLOAT.F	24 May 2010 21:09:44 -0000	1.54
***************
*** 1386,1391 ****
                  fchs
                  jmp     short L$4
!                 fld     st(0)           \ duplicate exponent       \ 2
! L$3:            frndint                 \ take integer part        \ 2
                  fsub    st(1), st       \ get fractional part      \ 2
                  fld1                                               \ 3
--- 1386,1391 ----
                  fchs
                  jmp     short L$4
! L$3:            fld     st(0)           \ duplicate exponent       \ 2
!                 frndint                 \ take integer part        \ 2
                  fsub    st(1), st       \ get fractional part      \ 2
                  fld1                                               \ 3