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

tools.time: print method dispatch statistics

db4
Slava Pestov 2009-04-28 22:45:19 -05:00
parent 7f766ab355
commit 8c25569e9e
1 changed files with 38 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
basis/tools/time/time.factor
View File

@ -1,17 +1,19 @@
! Copyright (C) 2003, 2008 Slava Pestov. ! Copyright (C) 2003, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel math math.vectors memory io io.styles prettyprint USING: kernel math math.vectors memory io io.styles prettyprint
namespaces system sequences splitting grouping assocs strings ; namespaces system sequences splitting grouping assocs strings
generic.single combinators ;
IN: tools.time IN: tools.time
: benchmark ( quot -- runtime ) : benchmark ( quot -- runtime )
micros [ call micros ] dip - ; inline micros [ call micros ] dip - ; inline
: time. ( data -- ) : time. ( time -- )
unclip "== Running time ==" print nl 1000000 /f pprint " seconds" write ;
"==== RUNNING TIME" print nl 1000000 /f pprint " seconds" print nl
: gc-stats. ( stats -- )
5 cut* 5 cut*
"==== GARBAGE COLLECTION" print nl "== Garbage collection ==" print nl
[ [
6 group 6 group
{ {
@ -37,5 +39,35 @@ IN: tools.time
} swap zip simple-table. } swap zip simple-table.
] bi* ; ] bi* ;
: dispatch-stats. ( stats -- )
"== Megamorphic caches ==" print nl
{ "Hits" "Misses" } swap zip simple-table. ;
: inline-cache-stats. ( stats -- )
nl "== Polymorphic inline caches ==" print nl
3 cut
[
"Transitions:" print
{ "Cold to monomorphic" "Mono to polymorphic" "Poly to megamorphic" } swap zip
simple-table. nl
] [
"Type check stubs:" print
{ "Tag only" "Hi-tag" "Tuple" "Hi-tag and tuple" } swap zip
simple-table.
] bi* ;
: time ( quot -- ) : time ( quot -- )
gc-reset micros [ call gc-stats micros ] dip - prefix time. ; inline gc-reset
reset-dispatch-stats
reset-inline-cache-stats
benchmark gc-stats dispatch-stats inline-cache-stats
H{ { table-gap { 20 20 } } } [
[
[ [ time. ] 3dip ] with-cell
[ ] with-cell
] with-row
[
[ [ gc-stats. ] 2dip ] with-cell
[ [ dispatch-stats. ] [ inline-cache-stats. ] bi* ] with-cell
] with-row
] tabular-output nl ; inline