2008-03-17 00:41:26 -04:00
|
|
|
USING: assocs words sequences arrays compiler tools.time
|
|
|
|
io.styles io prettyprint vocabs kernel sorting generator
|
2008-03-29 00:00:20 -04:00
|
|
|
optimizer math ;
|
2008-03-17 00:41:26 -04:00
|
|
|
IN: report.optimizer
|
|
|
|
|
|
|
|
: count-optimization-passes ( nodes n -- n )
|
|
|
|
>r optimize-1
|
|
|
|
[ r> 1+ count-optimization-passes ] [ drop r> ] if ;
|
|
|
|
|
|
|
|
: results
|
|
|
|
[ [ second ] swap compose compare ] curry sort 20 tail*
|
|
|
|
print
|
|
|
|
standard-table-style
|
|
|
|
[
|
|
|
|
[ [ [ pprint-cell ] each ] with-row ] each
|
2008-03-17 00:42:21 -04:00
|
|
|
] tabular-output ; inline
|
2008-03-17 00:41:26 -04:00
|
|
|
|
2008-03-17 00:42:21 -04:00
|
|
|
: optimizer-measurements ( -- alist )
|
2008-03-17 00:41:26 -04:00
|
|
|
all-words [ compiled? ] subset
|
|
|
|
[
|
|
|
|
dup [
|
|
|
|
word-dataflow nip 1 count-optimization-passes
|
|
|
|
] benchmark nip 2array
|
2008-03-17 00:42:21 -04:00
|
|
|
] { } map>assoc ;
|
|
|
|
|
|
|
|
: optimizer-measurements. ( alist -- )
|
|
|
|
[ [ first ] "Worst number of optimizer passes:" results ]
|
|
|
|
[ [ second ] "Worst compile times:" results ] bi ;
|
|
|
|
|
|
|
|
: optimizer-report ( -- )
|
|
|
|
optimizer-measurements optimizer-measurements. ;
|
2008-03-17 00:41:26 -04:00
|
|
|
|
|
|
|
MAIN: optimizer-report
|