forked from OSchip/llvm-project
30 lines
1020 B
Common Lisp
30 lines
1020 B
Common Lisp
#include <clc/clc.h>
|
|
|
|
#define _CLC_DEFINE_ISEQUAL(RET_TYPE, FUNCTION, ARG1_TYPE, ARG2_TYPE) \
|
|
_CLC_DEF _CLC_OVERLOAD RET_TYPE FUNCTION(ARG1_TYPE x, ARG2_TYPE y) { \
|
|
return (x == y); \
|
|
} \
|
|
|
|
_CLC_DEFINE_ISEQUAL(int, isequal, float, float)
|
|
_CLC_DEFINE_ISEQUAL(int2, isequal, float2, float2)
|
|
_CLC_DEFINE_ISEQUAL(int3, isequal, float3, float3)
|
|
_CLC_DEFINE_ISEQUAL(int4, isequal, float4, float4)
|
|
_CLC_DEFINE_ISEQUAL(int8, isequal, float8, float8)
|
|
_CLC_DEFINE_ISEQUAL(int16, isequal, float16, float16)
|
|
|
|
#ifdef cl_khr_fp64
|
|
|
|
#pragma OPENCL EXTENSION cl_khr_fp64 : enable
|
|
|
|
// The scalar version of isequal(double) returns an int, but the vector versions
|
|
// return long.
|
|
_CLC_DEFINE_ISEQUAL(int, isequal, double, double)
|
|
_CLC_DEFINE_ISEQUAL(long2, isequal, double2, double2)
|
|
_CLC_DEFINE_ISEQUAL(long3, isequal, double3, double3)
|
|
_CLC_DEFINE_ISEQUAL(long4, isequal, double4, double4)
|
|
_CLC_DEFINE_ISEQUAL(long8, isequal, double8, double8)
|
|
_CLC_DEFINE_ISEQUAL(long16, isequal, double16, double16)
|
|
|
|
#endif
|
|
|
|
#undef _CLC_DEFINE_ISEQUAL |