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

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

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

Modified Files:
	FLOAT.F 
Log Message:
gah: added macro 2>fpu to speed up words taking 2 FP inputs

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** FLOAT.F	24 May 2005 07:53:16 -0000	1.7
--- FLOAT.F	28 May 2005 13:07:38 -0000	1.8
***************
*** 25,28 ****
--- 25,29 ----
  \   also fixed a lot of wrong stack coments
  \ gah Thursday, May 19 2005 optimized fdrop and f2drop for better decoding
+ \ gah Thursday, May 26 2005 added macro 2>FPU
  \ -------------------------------------------------------------------------
  
***************
*** 220,223 ****
--- 221,232 ----
                  endm
  
+ \ macro to move the top 2 values from the seperate float stack into st(0) and st(1)
+ macro: 2>FPU
+                 (>FPU)
+                 sub     ecx, # B/FLOAT
+                 fld     FSIZE FSTACK_MEMORY
+                 mov     FSP_MEMORY , ecx
+                 endm
+ 
  in-application
  
***************
*** 427,432 ****
          
  \ TODO optimize
!                 >FPU
!                 >FPU
                  fxch
                  FPU>
--- 436,440 ----
          
  \ TODO optimize
!                 2>FPU
                  fxch
                  FPU>
***************
*** 838,843 ****
                  fstack-check_2
  
!                 >FPU
!                 >FPU
                  fcompp
                  (fcomp)
--- 846,850 ----
                  fstack-check_2
  
!                 2>FPU
                  fcompp
                  (fcomp)
***************
*** 883,888 ****
                  fstack-check_2
  
!                 >FPU
!                 >FPU
                  faddp   st(1), st
                  FPU>
--- 890,894 ----
                  fstack-check_2
  
!                 2>FPU
                  faddp   st(1), st
                  FPU>
***************
*** 894,899 ****
                  fstack-check_2
  
!                 >FPU
!                 >FPU
                  fxch
                  fsubp   st(1), st
--- 900,904 ----
                  fstack-check_2
  
!                 2>FPU
                  fxch
                  fsubp   st(1), st
***************
*** 906,911 ****
                  fstack-check_2
  
!                 >FPU
!                 >FPU
                  fmulp   st(1), st
                  FPU>
--- 911,915 ----
                  fstack-check_2
  
!                 2>FPU
                  fmulp   st(1), st
                  FPU>
***************
*** 917,922 ****
                  fstack-check_2
  
!                 >FPU
!                 >FPU
                  fxch
                  fdivp   st(1), st
--- 921,925 ----
                  fstack-check_2
  
!                 2>FPU
                  fxch
                  fdivp   st(1), st
***************
*** 929,934 ****
                  fstack-check_2
  
!                 >FPU
!                 >FPU
                  fxch
                  fpatan
--- 932,936 ----
                  fstack-check_2
  
!                 2>FPU
                  fxch
                  fpatan