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

compiler.cfg.graphviz: add block numbers to labels

Alex Vondrak 2011-06-27 15:08:55 -07:00 committed by John Benediktsson
parent dca0a78956
commit 80a1b52d03
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -26,10 +26,14 @@ IN: compiler.cfg.graphviz
: left-justify ( str -- str' )
string-lines "\\l" join ;
: left-justified ( quot -- str )
with-string-writer left-justify ; inline
: bb-label ( bb -- str )
[ number>> number>string ]
[
instructions>> [ insn. ] each
] with-string-writer left-justify ;
[ instructions>> [ insn. ] each ] left-justified
] bi "\\n" glue ;
: add-cfg-vertex ( graph bb -- graph' )
[ number>> <node> ]