forked from OSchip/llvm-project
23 lines
704 B
Common Lisp
23 lines
704 B
Common Lisp
|
#include <clc/clc.h>
|
||
|
|
#include "relational.h"
|
||
|
|
|
||
|
|
//Note: It would be nice to use __builtin_isgreaterequal with vector inputs, but it seems to only take scalar values as
|
||
|
|
// input, which will produce incorrect output for vector input types.
|
||
|
|
|
||
|
|
_CLC_DEFINE_RELATIONAL_BINARY(int, isgreaterequal, __builtin_isgreaterequal, float, float)
|
||
|
|
|
||
|
|
#ifdef cl_khr_fp64
|
||
|
|
|
||
|
|
#pragma OPENCL EXTENSION cl_khr_fp64 : enable
|
||
|
|
|
||
|
|
// The scalar version of isgreaterequal(double, double) returns an int, but the vector versions
|
||
|
|
// return long.
|
||
|
|
|
||
|
|
_CLC_DEF _CLC_OVERLOAD int isgreaterequal(double x, double y){
|
||
|
|
return __builtin_isgreaterequal(x, y);
|
||
|
|
}
|
||
|
|
|
||
|
|
_CLC_DEFINE_RELATIONAL_BINARY_VEC_ALL(long, isgreaterequal, double, double)
|
||
|
|
|
||
|
|
#endif
|