^minmax-compare-vector ( src1 src2 rep cc -- dst )

Vocabulary

compiler.cfg.intrinsics.simd

Inputs

src1	an object
src2	an object
rep	an object
cc	an object

Outputs

dst

an object

Definition

USING: combinators compiler.cfg.comparisons compiler.cfg.hats ;

IN: compiler.cfg.intrinsics.simd

:: ^minmax-compare-vector ( src1 src2 rep cc -- dst )
    cc order-cc {
        {
            cc<
            [
                src1 src2 rep ^^max-vector
                src1 rep cc/= ^(compare-vector)
            ]
        }
        {
            cc<=
            [
                src1 src2 rep ^^min-vector
                src1 rep cc= ^(compare-vector)
            ]
        }
        {
            cc>
            [
                src1 src2 rep ^^min-vector
                src1 rep cc/= ^(compare-vector)
            ]
        }
        {
            cc>=
            [
                src1 src2 rep ^^max-vector
                src1 rep cc= ^(compare-vector)
            ]
        }
    } case ;