2008-07-20 05:24:37 -04:00
|
|
|
! Copyright (C) 2004, 2008 Slava Pestov.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2014-12-13 19:10:21 -05:00
|
|
|
USING: arrays
|
2008-07-20 05:24:37 -04:00
|
|
|
compiler.tree
|
2014-12-13 19:10:21 -05:00
|
|
|
compiler.tree.propagation.branches
|
|
|
|
compiler.tree.propagation.call-effect
|
|
|
|
compiler.tree.propagation.constraints
|
2008-08-07 07:34:28 -04:00
|
|
|
compiler.tree.propagation.copy
|
2008-07-22 05:45:03 -04:00
|
|
|
compiler.tree.propagation.info
|
2008-09-12 09:18:44 -04:00
|
|
|
compiler.tree.propagation.inlining
|
2014-12-13 19:10:21 -05:00
|
|
|
compiler.tree.propagation.known-words
|
|
|
|
compiler.tree.propagation.nodes
|
2008-07-22 05:45:03 -04:00
|
|
|
compiler.tree.propagation.recursive
|
2014-12-13 19:10:21 -05:00
|
|
|
compiler.tree.propagation.simple
|
|
|
|
compiler.tree.propagation.transforms
|
|
|
|
kernel namespaces ;
|
2008-07-20 05:24:37 -04:00
|
|
|
IN: compiler.tree.propagation
|
|
|
|
|
2014-05-10 19:45:07 -04:00
|
|
|
: propagate ( nodes -- nodes )
|
2008-08-07 02:08:11 -04:00
|
|
|
H{ } clone copies set
|
2008-11-11 09:49:00 -05:00
|
|
|
H{ } clone 1array value-infos set
|
|
|
|
H{ } clone 1array constraints set
|
2008-08-07 02:08:11 -04:00
|
|
|
dup (propagate) ;
|