cl_device_fp_config>flags ( ulong -- sequence )

Vocabulary

opencl.private

Inputs

ulong

an object

Outputs

sequence

an object

Definition

USING: combinators.smart kernel math opencl opencl.ffi sequences
;

IN: opencl.private

: cl_device_fp_config>flags ( ulong -- sequence )
    {
        [ CL_FP_DENORM bitand 0 = [ f ] [ cl-denorm ] if ]
        [ CL_FP_INF_NAN bitand 0 = [ f ] [ cl-inf-and-nan ] if ]
        [
            CL_FP_ROUND_TO_NEAREST bitand 0 =
            [ f ] [ cl-round-to-nearest ] if
        ]
        [
            CL_FP_ROUND_TO_ZERO bitand 0 =
            [ f ] [ cl-round-to-zero ] if
        ]
        [
            CL_FP_ROUND_TO_INF bitand 0 =
            [ f ] [ cl-round-to-inf ] if
        ]
        [ CL_FP_FMA bitand 0 = [ f ] [ cl-fma ] if ]
    } cleave>array sift ;