32 lines
947 B
Factor
32 lines
947 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel accessors assocs sequences sets
|
|
compiler.cfg.def-use compiler.cfg.dataflow-analysis
|
|
compiler.cfg.instructions ;
|
|
IN: compiler.cfg.liveness
|
|
|
|
! See http://en.wikipedia.org/wiki/Liveness_analysis
|
|
! Do not run after SSA construction
|
|
|
|
BACKWARD-ANALYSIS: live
|
|
|
|
GENERIC: insn-liveness ( live-set insn -- )
|
|
|
|
: kill-defs ( live-set insn -- live-set )
|
|
defs-vreg [ over delete-at ] when* ;
|
|
|
|
: gen-uses ( live-set insn -- live-set )
|
|
dup ##phi? [ drop ] [ uses-vregs [ over conjoin ] each ] if ;
|
|
|
|
: transfer-liveness ( live-set instructions -- live-set' )
|
|
[ clone ] [ <reversed> ] bi* [ [ kill-defs ] [ gen-uses ] bi ] each ;
|
|
|
|
: local-live-in ( instructions -- live-set )
|
|
[ H{ } ] dip transfer-liveness keys ;
|
|
|
|
M: live-analysis transfer-set
|
|
drop instructions>> transfer-liveness ;
|
|
|
|
M: live-analysis join-sets
|
|
2drop assoc-combine ;
|