min-vector-lane ( a b -- c )

Vocabulary

math.vectors.simd.intrinsics.private

Inputs

a	an object
b	an object

Outputs

c

an object

Definition

USING: kernel math math.order ;

IN: math.vectors.simd.intrinsics.private

:: min-vector-lane ( a b -- c )
    b fp-nan?
    [ a ] [
        a fp-nan?
        [ b ] [
            a float? b float? and a zero? b zero? and and
            [ a double>bits b double>bits bitor bits>double ]
            [ a b min ] if
        ] if
    ] if ;