add a utility word vreg>constant

2009-07-02 11:32:23 -05:00 · 2009-07-02 11:32:23 -05:00 · 826464724e
parent 3a4916462b
commit 826464724e
1 changed files with 2 additions and 0 deletions
--- a/basis/compiler/cfg/value-numbering/graph/graph.factor
+++ b/basis/compiler/cfg/value-numbering/graph/graph.factor
@ -26,6 +26,8 @@ SYMBOL: vregs>vns

 : vn>constant ( vn -- constant ) vn>expr value>> ; inline

+: vreg>constant ( vreg -- constant ) vreg>vn vn>constant ; inline
+
 : init-value-graph ( -- )
    0 vn-counter set
    <bihash> exprs>vns set