steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update wordtimer for micros removal

db4
Slava Pestov 2008-11-23 03:10:21 -06:00
parent 3660643dcc
commit 4d9a4c573c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/wordtimer/wordtimer.factor
View File

@ -1,5 +1,5 @@
USING: kernel sequences namespaces make math assocs words arrays USING: kernel sequences namespaces make math assocs words arrays
tools.annotations vocabs sorting prettyprint io micros tools.annotations vocabs sorting prettyprint io system
math.statistics accessors ; math.statistics accessors ;
IN: wordtimer IN: wordtimer
@ -30,7 +30,7 @@ SYMBOL: *calling*
*calling* get-global at ; inline *calling* get-global at ; inline
: timed-call ( quot word -- ) : timed-call ( quot word -- )
[ calling ] [ >r micro-time r> register-time ] [ finished ] tri ; inline [ calling ] [ >r benchmark r> register-time ] [ finished ] tri ; inline
: time-unless-recursing ( quot word -- ) : time-unless-recursing ( quot word -- )
dup called-recursively? not dup called-recursively? not
@ -51,7 +51,7 @@ SYMBOL: *calling*
: dummy-word ( -- ) ; : dummy-word ( -- ) ;
: time-dummy-word ( -- n ) : time-dummy-word ( -- n )
[ 100000 [ [ dummy-word ] micro-time , ] times ] { } make median ; [ 100000 [ [ dummy-word ] benchmark , ] times ] { } make median ;
: subtract-overhead ( {oldtime,n} overhead -- {newtime,n} ) : subtract-overhead ( {oldtime,n} overhead -- {newtime,n} )
[ first2 ] dip [ first2 ] dip
@ -71,7 +71,7 @@ SYMBOL: *calling*
: wordtimer-call ( quot -- ) : wordtimer-call ( quot -- )
reset-word-timer reset-word-timer
[ call ] micro-time >r benchmark >r
correct-for-timing-overhead correct-for-timing-overhead
"total time:" write r> pprint nl "total time:" write r> pprint nl
print-word-timings nl ; print-word-timings nl ;
@ -81,7 +81,7 @@ SYMBOL: *calling*
over [ reset-vocab ] [ add-timers ] bi over [ reset-vocab ] [ add-timers ] bi
reset-word-timer reset-word-timer
"executing quotation..." print flush "executing quotation..." print flush
[ call ] micro-time >r benchmark >r
"resetting annotations..." print flush "resetting annotations..." print flush
reset-vocab reset-vocab
correct-for-timing-overhead correct-for-timing-overhead