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
|
