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

compiler.cfg.gvn.testing: minor fix

db4
Alex Vondrak 2011-06-23 17:33:49 -07:00 committed by John Benediktsson
parent 1adfdc5fd6
commit cce1f9d859
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -60,7 +60,6 @@ IN: compiler.cfg.graphviz
tri* ; tri* ;
SYMBOL: passes SYMBOL: passes
\ optimize-cfg def>> passes set
: watch-pass ( cfg pass pass# -- cfg' ) : watch-pass ( cfg pass pass# -- cfg' )
[ perform-pass ] 2keep draw-cfg ; [ perform-pass ] 2keep draw-cfg ;

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

@ -14,7 +14,9 @@ M: integer-expr expr>str value>> number>string ;
M: reference-expr expr>str value>> unparse ; M: reference-expr expr>str value>> unparse ;
M: object expr>str [ unparse ] map " " join ; M: sequence expr>str [ unparse ] map " " join ;
M: object expr>str unparse ;
: value-mapping ( from to -- str ) : value-mapping ( from to -- str )
over exprs>vns get value-at* [ over exprs>vns get value-at* [