slp-root-pair? ( a b insns -- ? )

Vocabulary

compiler.cfg.slp

Inputs

a	an object
b	an object
insns	an object

Outputs

?

an object

Definition

USING: accessors compiler.cfg.def-use kernel math sequences ;

IN: compiler.cfg.slp

:: slp-root-pair? ( a b insns -- ? )
    a slp-arithmetic? b slp-arithmetic? and [
        a slp-vector-op b slp-vector-op = insns a swap index 1 +
        insns b swap index insns subseq
        [ uses-vregs a dst>> swap member? ] any? not and
    ] [ f ] if ;