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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
#include <clc/clc.h>
#ifdef cl_khr_fp64
#pragma OPENCL EXTENSION cl_khr_fp64 : enable
#endif
#define CONVERT_ID(FROM_TYPE, TO_TYPE, SUFFIX) \
_CLC_OVERLOAD _CLC_DEF TO_TYPE convert_##TO_TYPE##SUFFIX(FROM_TYPE x) { \
return x; \
}
#define CONVERT_VECTORIZE(FROM_TYPE, TO_TYPE, SUFFIX) \
_CLC_OVERLOAD _CLC_DEF TO_TYPE##2 convert_##TO_TYPE##2##SUFFIX(FROM_TYPE##2 x) { \
return (TO_TYPE##2)(convert_##TO_TYPE##SUFFIX(x.x), convert_##TO_TYPE##SUFFIX(x.y)); \
} \
\
_CLC_OVERLOAD _CLC_DEF TO_TYPE##3 convert_##TO_TYPE##3##SUFFIX(FROM_TYPE##3 x) { \
return (TO_TYPE##3)(convert_##TO_TYPE##SUFFIX(x.x), convert_##TO_TYPE##SUFFIX(x.y), convert_##TO_TYPE##SUFFIX(x.z)); \
} \
\
_CLC_OVERLOAD _CLC_DEF TO_TYPE##4 convert_##TO_TYPE##4##SUFFIX(FROM_TYPE##4 x) { \
return (TO_TYPE##4)(convert_##TO_TYPE##2##SUFFIX(x.lo), convert_##TO_TYPE##2##SUFFIX(x.hi)); \
} \
\
_CLC_OVERLOAD _CLC_DEF TO_TYPE##8 convert_##TO_TYPE##8##SUFFIX(FROM_TYPE##8 x) { \
return (TO_TYPE##8)(convert_##TO_TYPE##4##SUFFIX(x.lo), convert_##TO_TYPE##4##SUFFIX(x.hi)); \
} \
\
_CLC_OVERLOAD _CLC_DEF TO_TYPE##16 convert_##TO_TYPE##16##SUFFIX(FROM_TYPE##16 x) { \
return (TO_TYPE##16)(convert_##TO_TYPE##8##SUFFIX(x.lo), convert_##TO_TYPE##8##SUFFIX(x.hi)); \
}
#define CONVERT_ID_FROM1(FROM_TYPE) \
CONVERT_ID(FROM_TYPE, char, ) \
CONVERT_ID(FROM_TYPE, uchar, ) \
CONVERT_ID(FROM_TYPE, int, ) \
CONVERT_ID(FROM_TYPE, uint, ) \
CONVERT_ID(FROM_TYPE, short, ) \
CONVERT_ID(FROM_TYPE, ushort, ) \
CONVERT_ID(FROM_TYPE, long, ) \
CONVERT_ID(FROM_TYPE, ulong, ) \
CONVERT_ID(FROM_TYPE, float, )
#ifdef cl_khr_fp64
#define CONVERT_ID_FROM(FROM_TYPE) \
CONVERT_ID_FROM1(FROM_TYPE) \
CONVERT_ID(FROM_TYPE, double, )
#else
#define CONVERT_ID_FROM(FROM_TYPE) \
CONVERT_ID_FROM1(FROM_TYPE)
#endif
#define CONVERT_ID_TO1()
CONVERT_ID_FROM(char)
CONVERT_ID_FROM(uchar)
CONVERT_ID_FROM(int)
CONVERT_ID_FROM(uint)
CONVERT_ID_FROM(short)
CONVERT_ID_FROM(ushort)
CONVERT_ID_FROM(long)
CONVERT_ID_FROM(ulong)
CONVERT_ID_FROM(float)
#ifdef cl_khr_fp64
#define CONVERT_ID_TO() \
CONVERT_ID_TO1() \
CONVERT_ID_FROM(double)
#else
#define CONVERT_ID_TO() \
CONVERT_ID_TO1()
#endif
CONVERT_ID_TO()
_CLC_OVERLOAD _CLC_DEF char convert_char_sat(long l) {
return l > 127 ? 127 : l < -128 ? -128 : l;
}
_CLC_OVERLOAD _CLC_DEF uchar convert_uchar_sat(ulong l) {
return l > 255U ? 255U : l;
}
_CLC_OVERLOAD _CLC_DEF short convert_short_sat(long l) {
return l > 32767 ? 32767 : l < -32768 ? -32768 : l;
}
_CLC_OVERLOAD _CLC_DEF ushort convert_ushort_sat(ulong l) {
return l > 65535U ? 65535U : l;
}
_CLC_OVERLOAD _CLC_DEF int convert_int_sat(long l) {
return l > ((1L<<31)-1) ? ((1L<<31L)-1) : l < -(1L<<31) ? -(1L<<31) : l;
}
_CLC_OVERLOAD _CLC_DEF uint convert_uint_sat(ulong l) {
return l > ((1UL<<32)-1) ? ((1UL<<32)-1) : l;
}
CONVERT_ID(long, long, _sat)
CONVERT_ID(ulong, ulong, _sat)
#ifdef cl_khr_fp64
CONVERT_ID(double, float, _sat)
CONVERT_ID(double, double, _sat)
#else
CONVERT_ID(float, float, _sat)
#endif
#define CONVERT_VECTORIZE_FROM1(FROM_TYPE, SUFFIX) \
CONVERT_VECTORIZE(FROM_TYPE, char, SUFFIX) \
CONVERT_VECTORIZE(FROM_TYPE, uchar, SUFFIX) \
CONVERT_VECTORIZE(FROM_TYPE, int, SUFFIX) \
CONVERT_VECTORIZE(FROM_TYPE, uint, SUFFIX) \
CONVERT_VECTORIZE(FROM_TYPE, short, SUFFIX) \
CONVERT_VECTORIZE(FROM_TYPE, ushort, SUFFIX) \
CONVERT_VECTORIZE(FROM_TYPE, long, SUFFIX) \
CONVERT_VECTORIZE(FROM_TYPE, ulong, SUFFIX) \
CONVERT_VECTORIZE(FROM_TYPE, float, SUFFIX)
#ifdef cl_khr_fp64
#define CONVERT_VECTORIZE_FROM(FROM_TYPE, SUFFIX) \
CONVERT_VECTORIZE_FROM1(FROM_TYPE, SUFFIX) \
CONVERT_VECTORIZE(FROM_TYPE, double, SUFFIX)
#else
#define CONVERT_VECTORIZE_FROM(FROM_TYPE, SUFFIX) \
CONVERT_VECTORIZE_FROM1(FROM_TYPE, SUFFIX)
#endif
#define CONVERT_VECTORIZE_TO1(SUFFIX) \
CONVERT_VECTORIZE_FROM(char, SUFFIX) \
CONVERT_VECTORIZE_FROM(uchar, SUFFIX) \
CONVERT_VECTORIZE_FROM(int, SUFFIX) \
CONVERT_VECTORIZE_FROM(uint, SUFFIX) \
CONVERT_VECTORIZE_FROM(short, SUFFIX) \
CONVERT_VECTORIZE_FROM(ushort, SUFFIX) \
CONVERT_VECTORIZE_FROM(long, SUFFIX) \
CONVERT_VECTORIZE_FROM(ulong, SUFFIX) \
CONVERT_VECTORIZE_FROM(float, SUFFIX)
#ifdef cl_khr_fp64
#define CONVERT_VECTORIZE_TO(SUFFIX) \
CONVERT_VECTORIZE_TO1(SUFFIX) \
CONVERT_VECTORIZE_FROM(double, SUFFIX)
#else
#define CONVERT_VECTORIZE_TO(SUFFIX) \
CONVERT_VECTORIZE_TO1(SUFFIX)
#endif
CONVERT_VECTORIZE_TO()
CONVERT_VECTORIZE_TO(_sat)
|
