linear-interference-test ( seq -- ? )

Vocabulary

compiler.cfg.ssa.interference.private

Inputs

seq

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel sequences ;

IN: compiler.cfg.ssa.interference.private

:: linear-interference-test ( seq -- ? )
    V{ } clone :> dom seq [| vreg |
        dom vreg find-parent {
            [ ]
            [ vreg same-sets? not ]
            [ vreg swap vregs-interfere? ]
        } 1&& [ t ] [ vreg dom push f ] if
    ] any? ;