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

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 ;