1 #include
<clc
/internal
/clc.h
>
3 #define _CLC_ANY
(v) (((v) >> ((sizeof(v) * 8) -
1)) & 0x1)
4 #define _CLC_ANY2
(v) (_CLC_ANY((v).s0
) | _CLC_ANY
((v).s1
))
5 #define _CLC_ANY3
(v) (_CLC_ANY2((v)) | _CLC_ANY
((v).s2
))
6 #define _CLC_ANY4
(v) (_CLC_ANY3((v)) | _CLC_ANY
((v).s3
))
8 (_CLC_ANY4((v)) | _CLC_ANY
((v).s4
) | _CLC_ANY
((v).s5
) | _CLC_ANY
((v).s6
) | \
10 #define _CLC_ANY16
(v) \
11 (_CLC_ANY8((v)) | _CLC_ANY
((v).s8
) | _CLC_ANY
((v).s9
) | _CLC_ANY
((v).sA
) | \
12 _CLC_ANY
((v).sB
) | _CLC_ANY
((v).sC
) | _CLC_ANY
((v).sD
) | _CLC_ANY
((v).sE
) | \
15 #define ANY_ID
(TYPE) _CLC_OVERLOAD _CLC_DEF int __clc_any
(TYPE v
)
17 #define ANY_VECTORIZE
(TYPE) \
18 ANY_ID
(TYPE) { return _CLC_ANY
(v); } \
19 ANY_ID
(TYPE##2) { return _CLC_ANY2
(v); } \
20 ANY_ID
(TYPE##3) { return _CLC_ANY3
(v); } \
21 ANY_ID
(TYPE##4) { return _CLC_ANY4
(v); } \
22 ANY_ID
(TYPE##8) { return _CLC_ANY8
(v); } \
23 ANY_ID
(TYPE##16) { return _CLC_ANY16
(v); }
