factor/library/test/benchmark/empty-loop.factor

IN: temporary
USING: compiler kernel math math-internals sequences test ;

: empty-loop-0 ( n -- )
    dup 0 fixnum< [ drop ] [ 1 fixnum-fast empty-loop-0 ] if ;

: empty-loop-1 ( n -- )
    [ ] times ; 

: empty-loop-2 ( n -- )
    [ ] repeat ; 

: empty-loop-3 ( n -- )
    [ drop ] each ; 

[ ] [ 5000000 empty-loop-0 ] unit-test
[ ] [ 5000000 empty-loop-1 ] unit-test
[ ] [ 5000000 empty-loop-2 ] unit-test
[ ] [ 5000000 empty-loop-3 ] unit-test
messing around with ffi, various other fixes 2005-03-28 23:45:13 -05:00			`IN: temporary`
Huge compiler patch; two new fixnum-fast and fixnum+fast primitives which do not perform overflow checks 2006-04-24 17:52:03 -04:00			`USING: compiler kernel math math-internals sequences test ;`

			`: empty-loop-0 ( n -- )`
			`dup 0 fixnum< [ drop ] [ 1 fixnum-fast empty-loop-0 ] if ;`
some simple benchmarks 2004-08-23 23:27:55 -04:00
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00			`: empty-loop-1 ( n -- )`
Automatically recompile words when files are loaded 2006-08-11 16:55:43 -04:00			`[ ] times ;`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
			`: empty-loop-2 ( n -- )`
Automatically recompile words when files are loaded 2006-08-11 16:55:43 -04:00			`[ ] repeat ;`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
clean up class<, class-and, class-or 2005-07-31 23:38:33 -04:00			`: empty-loop-3 ( n -- )`
Automatically recompile words when files are loaded 2006-08-11 16:55:43 -04:00			`[ drop ] each ;`
clean up class<, class-and, class-or 2005-07-31 23:38:33 -04:00
Huge compiler patch; two new fixnum-fast and fixnum+fast primitives which do not perform overflow checks 2006-04-24 17:52:03 -04:00			`[ ] [ 5000000 empty-loop-0 ] unit-test`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00			`[ ] [ 5000000 empty-loop-1 ] unit-test`
			`[ ] [ 5000000 empty-loop-2 ] unit-test`
clean up class<, class-and, class-or 2005-07-31 23:38:33 -04:00			`[ ] [ 5000000 empty-loop-3 ] unit-test`