From 80a1b52d03de6514dbee9baca536ca0cdeaf2a27 Mon Sep 17 00:00:00 2001 From: Alex Vondrak Date: Mon, 27 Jun 2011 15:08:55 -0700 Subject: [PATCH] compiler.cfg.graphviz: add block numbers to labels --- extra/compiler/cfg/graphviz/graphviz.factor | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/extra/compiler/cfg/graphviz/graphviz.factor b/extra/compiler/cfg/graphviz/graphviz.factor index 35be22db7a..129b5ab93d 100644 --- a/extra/compiler/cfg/graphviz/graphviz.factor +++ b/extra/compiler/cfg/graphviz/graphviz.factor @@ -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>> ]