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

compiler.cfg.graphviz & compiler.cfg.gvn.testing: change output slightly

db4
Alex Vondrak 2011-09-08 10:01:42 -07:00 committed by John Benediktsson
parent d86d44023a
commit a11e1bb95a
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/compiler/cfg/graphviz/graphviz.factor
View File

@ -59,8 +59,8 @@ 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>> "-" prepend ]
[ number>string svg ] [ number>string prepend svg ]
tri* ; tri* ;
SYMBOL: passes SYMBOL: passes

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

@ -39,7 +39,8 @@ M: object expr>str unparse ;
vregs>vns get invert-assoc >alist natural-sort [ vregs>vns get invert-assoc >alist natural-sort [
first2 first2
natural-sort [ number>string ] map ", " join natural-sort [ number>string ] map ", " join
"<%d> : {%s}\\l" sprintf over exprs>vns get value-at expr>str
"<%d> : {%s} (%s)\\l" sprintf
] map "" concat-as ; ] map "" concat-as ;
: basic-block# ( -- n ) : basic-block# ( -- n )
@ -47,7 +48,7 @@ M: object expr>str unparse ;
: add-gvns ( graph -- graph' ) : add-gvns ( graph -- graph' )
"gvns" add-node[ "gvns" add-node[
gvns congruence-classes "\\l\\l" glue =label congruence-classes =label
"plaintext" =shape "plaintext" =shape
]; ];
"gvns" 0 add-edge[ "invis" =style ]; "gvns" 0 add-edge[ "invis" =style ];