1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: compiler.tree.escape-analysis.allocations
4 compiler.tree.escape-analysis.nodes kernel namespaces ;
6 USE: compiler.tree.escape-analysis.recursive
7 USE: compiler.tree.escape-analysis.branches
8 USE: compiler.tree.escape-analysis.simple
10 IN: compiler.tree.escape-analysis
12 : escape-analysis ( nodes -- nodes )
14 H{ } clone allocations set
15 H{ } clone slot-accesses set
16 H{ } clone value-classes set
18 compute-escaping-allocations ;