^swap-compare-vector ( src1 src2 rep {cc,swap} -- dst )

Vocabulary

compiler.cfg.intrinsics.simd

Inputs

src1	an object
src2	an object
rep	an object
{cc,swap}	an object

Outputs

dst

an object

Definition

USING: compiler.cfg.hats kernel sequences ;

IN: compiler.cfg.intrinsics.simd

:: ^swap-compare-vector ( src1 src2 rep {cc,swap} -- dst )
    {cc,swap} first2 :> ( cc swap? ) swap?
    [ src2 src1 rep cc ^^compare-vector ]
    [ src1 src2 rep cc ^^compare-vector ] if ;