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

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

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

Modified Files:
	FLOAT.F 
Log Message:
gah:  optimized fdrop and f2drop for better decoding

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** FLOAT.F	14 May 2005 11:37:11 -0000	1.5
--- FLOAT.F	19 May 2005 08:13:27 -0000	1.6
***************
*** 24,27 ****
--- 24,28 ----
  \ dbu Samstag, Mai 14 2005 major changes to make more readable and shorter
  \   also fixed a lot of wrong stack coments
+ \ gah Thursday, May 19 2005 optimized fdrop and f2drop for better decoding
  \ -------------------------------------------------------------------------
  
***************
*** 405,412 ****
  code FDROP      ( fs: r -- )
                  fstack-check_1
! 
!                 mov     ecx, FSP_MEMORY
!                 sub     ecx, # B/FLOAT
!                 mov     FSP_MEMORY , ecx
          
                  next,
--- 406,411 ----
  code FDROP      ( fs: r -- )
                  fstack-check_1
!  
!                 sub     FSP_MEMORY , # B/FLOAT
          
                  next,
***************
*** 502,509 ****
                  fstack-check_2
  
!                 mov     ecx, FSP_MEMORY
!                 sub     ecx, # B/FLOAT 2*
!                 mov     FSP_MEMORY , ecx
!         
                  next,
                  end-code
--- 501,506 ----
                  fstack-check_2
  
!                 sub     FSP_MEMORY , # B/FLOAT 2*
! 
                  next,
                  end-code