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

add a utility word vreg>constant

db4
Doug Coleman 2009-07-02 11:32:23 -05:00
parent 3a4916462b
commit 826464724e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/value-numbering/graph/graph.factor
View File

@ -26,6 +26,8 @@ SYMBOL: vregs>vns
: vn>constant ( vn -- constant ) vn>expr value>> ; inline : vn>constant ( vn -- constant ) vn>expr value>> ; inline
: vreg>constant ( vreg -- constant ) vreg>vn vn>constant ; inline
: init-value-graph ( -- ) : init-value-graph ( -- )
0 vn-counter set 0 vn-counter set
<bihash> exprs>vns set <bihash> exprs>vns set