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

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