17 lines
520 B
Factor
17 lines
520 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: namespaces sets kernel assocs ;
|
|
IN: compiler.cfg.coalescing.state
|
|
|
|
SYMBOLS: processed-names waiting used-by-another renaming-sets ;
|
|
|
|
: init-coalescing ( -- )
|
|
H{ } clone renaming-sets set
|
|
H{ } clone processed-names set
|
|
H{ } clone waiting set
|
|
V{ } clone used-by-another set ;
|
|
|
|
: processed-name ( vreg -- ) processed-names get conjoin ;
|
|
|
|
: waiting-for ( bb -- assoc ) waiting get [ drop H{ } clone ] cache ;
|