sets-interfere-1? ( seq1 seq2 -- merged/f ? )


Vocabulary
compiler.cfg.ssa.interference.private

Inputs
seq1an object
seq2an object


Outputs
merged/fan object
?an object


Definition
USING: accessors arrays kernel math.order sequences ;

IN: compiler.cfg.ssa.interference.private

: sets-interfere-1? ( seq1 seq2 -- merged/f ? )
[ first ] bi@ 2dup before? [ swap ] unless 2dup same-values?
[ 2dup equal-anc-in<< 2array f ]
[ [ vregs-intersect? ] [ 2drop f t ] [ 2array f ] 2if ] if ;