33 lines
825 B
Factor
33 lines
825 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors kernel math namespaces assocs biassocs ;
|
|
IN: compiler.cfg.value-numbering.graph
|
|
|
|
SYMBOL: vn-counter
|
|
|
|
: next-vn ( -- vn ) vn-counter [ dup 1 + ] change ;
|
|
|
|
! biassoc mapping expressions to value numbers
|
|
SYMBOL: exprs>vns
|
|
|
|
: expr>vn ( expr -- vn ) exprs>vns get [ drop next-vn ] cache ;
|
|
|
|
: vn>expr ( vn -- expr ) exprs>vns get value-at ;
|
|
|
|
SYMBOL: vregs>vns
|
|
|
|
: vreg>vn ( vreg -- vn ) vregs>vns get at ;
|
|
|
|
: vn>vreg ( vn -- vreg ) vregs>vns get value-at ;
|
|
|
|
: set-vn ( vn vreg -- ) vregs>vns get set-at ;
|
|
|
|
: vreg>expr ( vreg -- expr ) vreg>vn vn>expr ; inline
|
|
|
|
: vn>constant ( vn -- constant ) vn>expr value>> ; inline
|
|
|
|
: init-value-graph ( -- )
|
|
0 vn-counter set
|
|
<bihash> exprs>vns set
|
|
<bihash> vregs>vns set ;
|