[Win32forth-cvs] win32forth/src FLOAT.F,1.60,1.61

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

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18056

Modified Files:
	FLOAT.F 
Log Message:
Fixed bug in Fdrop and F2drop

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.60
retrieving revision 1.61
diff -C2 -d -r1.60 -r1.61
*** FLOAT.F	15 May 2013 17:22:11 -0000	1.60
--- FLOAT.F	14 Jun 2013 01:02:35 -0000	1.61
***************
*** 575,579 ****
  \ *G Remove r from the floating-point stack.
                  fstack-check_1
!                 sub     FSP_MEMORY , # B/FLOAT
                  float;
  
--- 575,580 ----
  \ *G Remove r from the floating-point stack.
                  fstack-check_1
!                 sub     ecx , # B/FLOAT
!                 mov     FSP_MEMORY , ecx
                  float;
  
***************
*** 653,657 ****
  \ *G Remove the top 2 FP stack entries.
                  fstack-check_2
!                 sub     FSP_MEMORY , # B/FLOAT 2*
                  float;
  
--- 654,659 ----
  \ *G Remove the top 2 FP stack entries.
                  fstack-check_2
!                 sub     ecx , # B/FLOAT 2*
!                 mov     FSP_MEMORY , ecx
                  float;