factor/basis/compiler/tree/escape-analysis/nodes/nodes.factor

22 lines
592 B
Factor
Raw Normal View History

! Copyright (C) 2008, 2009 Slava Pestov.
2008-08-02 00:31:43 -04:00
! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences fry math namespaces
2008-08-07 07:34:28 -04:00
compiler.tree
compiler.tree.def-use
compiler.tree.escape-analysis.allocations ;
2008-08-02 00:31:43 -04:00
IN: compiler.tree.escape-analysis.nodes
GENERIC: escape-analysis* ( node -- )
SYMBOL: next-node
: each-with-next ( ... seq quot: ( ... elt -- ... ) -- ... )
dupd '[ 1 + _ ?nth next-node set @ ] each-index ; inline
: (escape-analysis) ( nodes -- )
2008-08-07 07:34:28 -04:00
[
[ node-defs-values introduce-values ]
[ escape-analysis* ]
bi
] each-with-next ;