compute-predecessors ( cfg -- )

Vocabulary

compiler.cfg.predecessors.private

Inputs

cfg

an object

Outputs

None

Definition

USING: accessors compiler.cfg.rpo kernel ;

IN: compiler.cfg.predecessors.private

: compute-predecessors ( cfg -- )
    [ [ V{ } clone >>predecessors drop ] each-basic-block ]
    [ [ update-predecessors ] each-basic-block ]
    [ [ update-phis ] each-basic-block ] tri ;