25 lines
566 B
Factor
25 lines
566 B
Factor
! Copyright (C) 2004, 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: sequences accessors kernel
|
|
compiler.tree.def-use
|
|
compiler.tree.propagation.info ;
|
|
IN: compiler.tree.propagation.nodes
|
|
|
|
SYMBOL: +constraints+
|
|
SYMBOL: +outputs+
|
|
|
|
GENERIC: propagate-before ( node -- )
|
|
|
|
GENERIC: propagate-after ( node -- )
|
|
|
|
GENERIC: propagate-around ( node -- )
|
|
|
|
: (propagate) ( node -- )
|
|
[
|
|
[ node-defs-values [ introduce-value ] each ]
|
|
[ propagate-around ]
|
|
[ successor>> ]
|
|
tri
|
|
(propagate)
|
|
] when* ;
|