17 lines
608 B
Factor
17 lines
608 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors assocs fry kernel sequences
|
|
compiler.cfg compiler.cfg.instructions compiler.cfg.rpo ;
|
|
IN: compiler.cfg.phi-elimination
|
|
|
|
: insert-copy ( predecessor input output -- )
|
|
'[ _ _ swap ##copy ] add-instructions ;
|
|
|
|
: eliminate-phi ( ##phi -- )
|
|
[ inputs>> ] [ dst>> ] bi '[ _ insert-copy ] assoc-each ;
|
|
|
|
: eliminate-phi-step ( bb -- )
|
|
instructions>> [ dup ##phi? [ eliminate-phi f ] [ drop t ] if ] filter-here ;
|
|
|
|
: eliminate-phis ( cfg -- cfg' )
|
|
dup [ eliminate-phi-step ] each-basic-block ; |