[Win32forth-cvs] win32forth-stc/demos/benchmarks bench.f,1.1,1.2

[Alex M. <ale...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/demos/benchmarks
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27201

Modified Files:
	bench.f 
Log Message:
arm: better optimisation

Index: bench.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/demos/benchmarks/bench.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** bench.f	1 Oct 2006 07:38:44 -0000	1.1
--- bench.f	5 Nov 2006 23:34:07 -0000	1.2
***************
*** 283,287 ****
  : Precedes  ( n n - f )    u< ;
  
! : Exchange  ( a1 a2 -- )   2DUP  @ SWAP @ ROT !  SWAP ! ;
  
  : Both-Ends  ( f l pivot - f l )
--- 283,287 ----
  : Precedes  ( n n - f )    u< ;
  
! : Exchange  ( a1 a2 -- )   2DUP  @ SWAP @ ROT !  SWAP ! ;  
  
  : Both-Ends  ( f l pivot - f l )
***************
*** 912,916 ****
                          DROP IntLoc IntGlob - 
                          TRUE
!                 UNTIL   THEN ; 
  
  : Proc4         S" 'B' TO Char2Glob "                    EVALUATE ; IMMEDIATE 
--- 912,916 ----
                          DROP IntLoc IntGlob - 
                          TRUE
!                 UNTIL   THEN ;
  
  : Proc4         S" 'B' TO Char2Glob "                    EVALUATE ; IMMEDIATE 
***************
*** 962,966 ****
                  0 0 0
  	        \ The following must be on ONE line or Win32Forth will crash.
!                 LOCALS| CharIndex CharLoc EnumLoc IntLoc3 IntLoc2 IntLoc1 String2Loc String1Loc |
                  RecordType TO PtrGlb            \ constructor, allocates !
                  RecordType TO PtrGlbNext
--- 962,967 ----
                  0 0 0
  	        \ The following must be on ONE line or Win32Forth will crash.
!                 LOCALS| CharIndex CharLoc EnumLoc 
!                         IntLoc3 IntLoc2 IntLoc1 String2Loc String1Loc |
                  RecordType TO PtrGlb            \ constructor, allocates !
                  RecordType TO PtrGlbNext