Re: Stack vs stackless operation

An even weirder result for TEST3, although it probably has more to do
with my aging DO LOOP construct.
-marcel
---
ANEW -oos
VARIABLE V1   7 V1 !
VARIABLE V2   8 V2 !
VARIABLE V3   9 V3 !
: :=: ( a b -- ) \ exchange values among two variables
PARAMS| a b |  a @ b @ swap b ! a ! ;
: ++  ( a -- )   \ increment variable by one
1 SWAP +! ;
: +>  ( a b c -- ) \ add two variables then store result into third one
PARAMS| a b c  | a @ b @ + c ! ;
: t1a V1 @ V2 @ + V3 ! ;      : t1b   V1 V2 V3 +>  ;
: t2a 1 V1 +! ;               : t2b   V1 ++ ;
: t3a V1 @ V3 ! V2 @ V1 !  V3 @ V2 ! ;   : t3b   V1 V2 :=: ;
: TESTS
  CR ." \ TEST1 : " TIMER-RESET #1000000000 0 DO  t1a t1a t1a t1a t1a
t1a t1a t1a t1a t1a  LOOP .ELAPSED
     3 SPACES       TIMER-RESET #1000000000 0 DO  t1b t1b t1b t1b t1b
t1b t1b t1b t1b t1b  LOOP .ELAPSED
  CR ." \ TEST2 : " TIMER-RESET #1000000000 0 DO  t2a t2a t2a t2a t2a
t2a t2a t2a t2a t2a  LOOP .ELAPSED
     3 SPACES       TIMER-RESET #1000000000 0 DO  t2b t2b t2b t2b t2b
t2b t2b t2b t2b t2b  LOOP .ELAPSED
  CR ." \ TEST3 : " TIMER-RESET #1000000000 0 DO  t3a t3a t3a t3a t3a
t3a t3a t3a t3a t3a  LOOP .ELAPSED
     3 SPACES       TIMER-RESET #1000000000 0 DO  t3b t3b t3b t3b t3b
t3b t3b t3b t3b t3b  LOOP .ELAPSED ;
\ old version
\ TEST1 :    1.646 seconds elapsed.   1.661 seconds elapsed.
\ TEST2 :    1.778 seconds elapsed.   1.728 seconds elapsed.
\ TEST3 :    2.194 seconds elapsed.   1.645 seconds elapsed. ok
\ new version (above, note: 10 Giga executions)
\ TEST1 : 1.959 seconds elapsed.   1.958 seconds elapsed.
\ TEST2 : 1.826 seconds elapsed.   1.827 seconds elapsed.
\ TEST3 : 18.711 seconds elapsed.   3.849 seconds elapsed. ok