compiler.cfg.graphviz & compiler.cfg.gvn.testing: png -> svg
parent
0bcff5d642
commit
270de14e22
|
@ -60,7 +60,7 @@ IN: compiler.cfg.graphviz
|
|||
: draw-cfg ( cfg pass pass# -- cfg )
|
||||
[ dup cfgviz ]
|
||||
[ name>> "After " prepend =label ]
|
||||
[ number>string png ]
|
||||
[ number>string svg ]
|
||||
tri* ;
|
||||
|
||||
SYMBOL: passes
|
||||
|
|
|
@ -65,7 +65,7 @@ SYMBOL: iteration
|
|||
: draw-annotated-cfg ( -- )
|
||||
iteration-dir [
|
||||
cfg get cfgviz add-gvns
|
||||
basic-block# number>string "bb" prepend png
|
||||
basic-block# number>string "bb" prepend svg
|
||||
] with-directory ;
|
||||
|
||||
: annotate-gvn ( -- )
|
||||
|
|
Loading…
Reference in New Issue