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 )
|
: draw-cfg ( cfg pass pass# -- cfg )
|
||||||
[ dup cfgviz ]
|
[ dup cfgviz ]
|
||||||
[ name>> "After " prepend =label ]
|
[ name>> "After " prepend =label ]
|
||||||
[ number>string png ]
|
[ number>string svg ]
|
||||||
tri* ;
|
tri* ;
|
||||||
|
|
||||||
SYMBOL: passes
|
SYMBOL: passes
|
||||||
|
|
|
@ -65,7 +65,7 @@ SYMBOL: iteration
|
||||||
: draw-annotated-cfg ( -- )
|
: draw-annotated-cfg ( -- )
|
||||||
iteration-dir [
|
iteration-dir [
|
||||||
cfg get cfgviz add-gvns
|
cfg get cfgviz add-gvns
|
||||||
basic-block# number>string "bb" prepend png
|
basic-block# number>string "bb" prepend svg
|
||||||
] with-directory ;
|
] with-directory ;
|
||||||
|
|
||||||
: annotate-gvn ( -- )
|
: annotate-gvn ( -- )
|
||||||
|
|
Loading…
Reference in New Issue