eliminate-single-phi ( #phi -- node )

Vocabulary

compiler.tree.cleanup

Inputs

#phi

an object

Outputs

node

an object

Definition

USING: accessors compiler.tree kernel sequences
stack-checker.branches ;

IN: compiler.tree.cleanup

: eliminate-single-phi ( #phi -- node )
    [ phi-in-d>> first ] [ out-d>> ] bi over
    [ +bottom+ eq? ] all?
    [ [ drop ] [ output-fs ] bi* ] [ <#copy> ] if ;