[Win32forth-cvs] win32forth/src FLOAT.F,1.6,1.7

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

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

Modified Files:
	FLOAT.F 
Log Message:
gah:  optimized multiplication by b/float for stack checking

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** FLOAT.F	19 May 2005 08:13:27 -0000	1.6
--- FLOAT.F	24 May 2005 07:53:16 -0000	1.7
***************
*** 225,233 ****
  \ Input: eax = number of floats we need
  subr:   fstack-check 
!                 push    edx
!                 mov     edx, # B/FLOAT
!                 mul     eax, edx
!                 pop     edx
!                 mov     ecx, FSP_MEMORY
                  sub     ecx, eax
                  js      short L$1
--- 225,234 ----
  \ Input: eax = number of floats we need
  subr:   fstack-check 
!                 
! B/FLOAT 10 = [IF]
!                 lea eax, 0 [eax*4] [eax] 
!                 add eax, eax
!          [ELSE] shl eax, # 3
!          [THEN] mov     ecx, FSP_MEMORY
                  sub     ecx, eax
                  js      short L$1