emit-vv-or-vl-vector-op ( var-trials imm-trials literal-pred -- quot )

Vocabulary

compiler.cfg.intrinsics.simd.backend

Inputs

var-trials	an object
imm-trials	an object
literal-pred	an object

Outputs

quot

an object

Definition

USING: accessors compiler.tree.propagation.info kernel sequences
;

IN: compiler.cfg.intrinsics.simd.backend

MACRO:: emit-vv-or-vl-vector-op
    ( var-trials imm-trials literal-pred -- quot )
    literal-pred imm-trials literal-pred var-trials
    [ [ emit-vl-vector-op ] 2curry ] dip
    [ emit-vv-vector-op ] curry [
        [
            [
                [
                    dup node-input-infos 2 tail-slice*
                    first literal>>
                ]
            ] dip compose
        ] dip
    ] dip [ if ] 2curry compose ;