compute-levels ( cfg -- )

Vocabulary

compiler.cfg.ssa.construction.tdmsc.private

Inputs

cfg

an object

Outputs

None

Definition

USING: accessors assocs compiler.cfg.dominance compiler.cfg.rpo
hashtables kernel math namespaces ;

IN: compiler.cfg.ssa.construction.tdmsc.private

: compute-levels ( cfg -- )
    0 over entry>> associate [
        [ [ [ dom-parent ] dip at 1 + ] 2keep set-at ] curry
        each-basic-block
    ] keep levels set ;