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

compiler.cfg.gvn.testing: separate out test-gvn to skip graphviz output for each GVN iteration

db4
Alex Vondrak 2011-06-27 15:16:42 -07:00 committed by John Benediktsson
parent 25b0fb5c03
commit 3d66cc52fb
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/compiler/cfg/gvn/testing/testing.factor
View File

@ -86,16 +86,10 @@ SYMBOL: iteration
name>> "value-numbering" = name>> "value-numbering" =
] split-when [ value-numbering ] join ; ] split-when [ value-numbering ] join ;
: watch-gvn ( path quot -- ) : test-gvn ( path quot -- )
annotate-gvn [
gvn-passes passes [ gvn-passes passes [
0 iteration [ watch-optimizer* ] with-variable 0 iteration [ watch-optimizer* ] with-variable
] with-variable ] with-variable ;
] [ reset-gvn ] [ ] cleanup ;
USING: io.pathnames math math.private ; : watch-gvn ( path quot -- )
annotate-gvn [ test-gvn ] [ reset-gvn ] [ ] cleanup ;
: test-gvn ( path -- )
"resource:work" prepend-path
[ 0 100 [ 1 fixnum+fast ] times ]
watch-gvn ;