update-for-merge ( seq -- )

Vocabulary

compiler.cfg.ssa.interference.private

Inputs

seq

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: compiler.cfg.ssa.interference.private

: update-for-merge ( seq -- )
    [
        dup [ equal-anc-in>> ] [ equal-anc-out>> ] bi 2dup and
        [ [ vreg-dominates? ] most ] [ or ] if >>equal-anc-in
        drop
    ] each ;