1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
/*========================== begin_copyright_notice ============================
Copyright (C) 2017-2021 Intel Corporation
SPDX-License-Identifier: MIT
============================= end_copyright_notice ===========================*/
#include "../include/BiF_Definitions.cl"
INLINE int OVERLOADABLE isnormal( float x )
{
return isfinite(x) & (fabs(x) >= FLT_MIN) ? 1 : 0;
}
static INLINE int OVERLOADABLE __intel_vector_isnormal_helper( float x )
{
return isfinite(x) & (fabs(x) >= FLT_MIN) ? -1 : 0;
}
int OVERLOADABLE __intel_relaxed_isnormal( float x )
{
return __intel_relaxed_isfinite(x) & (fabs(x) >= FLT_MIN) ? 1 : 0;
}
GENERATE_VECTOR_FUNCTIONS_1ARG_EXPLICIT( isnormal, __intel_vector_isnormal_helper, int, float )
#if defined(cl_khr_fp64)
INLINE int OVERLOADABLE isnormal(double x)
{
return isfinite(x) & (fabs(x) >= DBL_MIN) ? 1 : 0;
}
static INLINE long OVERLOADABLE __intel_vector_isnormal_helper( double x )
{
return isfinite(x) & (fabs(x) >= DBL_MIN) ? -1 : 0;
}
GENERATE_VECTOR_FUNCTIONS_1ARG_EXPLICIT( isnormal, __intel_vector_isnormal_helper, long, double )
int OVERLOADABLE __intel_relaxed_isnormal( double x )
{
return __intel_relaxed_isfinite(x) & (fabs(x) >= DBL_MIN) ? 1 : 0;
}
#endif // defined(cl_khr_fp64)
#if defined(cl_khr_fp16)
INLINE int OVERLOADABLE isnormal( half x )
{
return isfinite(x) & (fabs(x) >= HALF_MIN) ? 1 : 0;
}
static INLINE short OVERLOADABLE __intel_vector_isnormal_helper( half x )
{
return isfinite(x) & (fabs(x) >= HALF_MIN) ? -1 : 0;
}
GENERATE_VECTOR_FUNCTIONS_1ARG_EXPLICIT( isnormal, __intel_vector_isnormal_helper, short, half )
int OVERLOADABLE __intel_relaxed_isnormal( half x )
{
return __intel_relaxed_isfinite(x) & (fabs(x) >= HALF_MIN) ? 1 : 0;
}
#endif // defined(cl_khr_fp16)
|
