2008-08-02 00:31:43 -04:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2014-12-13 19:10:21 -05:00
|
|
|
USING: compiler.tree.escape-analysis.allocations
|
|
|
|
compiler.tree.escape-analysis.nodes kernel namespaces ;
|
|
|
|
|
|
|
|
USE: compiler.tree.escape-analysis.recursive
|
|
|
|
USE: compiler.tree.escape-analysis.branches
|
|
|
|
USE: compiler.tree.escape-analysis.simple
|
|
|
|
|
2008-08-02 00:31:43 -04:00
|
|
|
IN: compiler.tree.escape-analysis
|
|
|
|
|
2015-07-26 14:40:50 -04:00
|
|
|
: escape-analysis ( nodes -- nodes )
|
2008-08-03 22:32:12 -04:00
|
|
|
init-escaping-values
|
2008-08-02 00:31:43 -04:00
|
|
|
H{ } clone allocations set
|
2008-08-08 14:14:36 -04:00
|
|
|
H{ } clone slot-accesses set
|
2009-08-09 17:29:21 -04:00
|
|
|
H{ } clone value-classes set
|
2008-08-03 06:01:05 -04:00
|
|
|
dup (escape-analysis)
|
|
|
|
compute-escaping-allocations ;
|