1#include <clc/clc.h>
2#include "relational.h"
3
4_CLC_DEFINE_RELATIONAL_UNARY(int, isfinite, __builtin_isfinite, float)
5
6#ifdef cl_khr_fp64
7
8#pragma OPENCL EXTENSION cl_khr_fp64 : enable
9
10// The scalar version of isfinite(double) returns an int, but the vector versions
11// return long.
12_CLC_DEF _CLC_OVERLOAD int isfinite(double x) {
13  return __builtin_isfinite(x);
14}
15
16_CLC_DEFINE_RELATIONAL_UNARY_VEC_ALL(long, isfinite, double)
17
18#endif
19#ifdef cl_khr_fp16
20
21#pragma OPENCL EXTENSION cl_khr_fp16 : enable
22
23// The scalar version of isfinite(half) returns an int, but the vector versions
24// return short.
25_CLC_DEF _CLC_OVERLOAD int isfinite(half x) {
26  return __builtin_isfinite(x);
27}
28
29_CLC_DEFINE_RELATIONAL_UNARY_VEC_ALL(short, isfinite, half)
30
31#endif
32