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
|
/*========================== begin_copyright_notice ============================
Copyright (C) 2017-2021 Intel Corporation
SPDX-License-Identifier: MIT
============================= end_copyright_notice ===========================*/
// SVML code
// This file defines target independent versions of OpenCL explicit
// long<->float and long<->double conversion functions.
#include "include/BiF_Definitions.cl"
#include "spirv.h"
long OVERLOADABLE convert_long(float _T) {
return SPIRV_BUILTIN(ConvertFToS, _i64_f32, _Rlong)( _T );
}
ulong OVERLOADABLE convert_ulong(float _T) {
return SPIRV_BUILTIN(ConvertFToU, _i64_f32, _Rulong)( _T );
}
float OVERLOADABLE convert_float(long _T) {
return SPIRV_BUILTIN(ConvertSToF, _f32_i64, _Rfloat)( _T );
}
float OVERLOADABLE convert_float_rtn(long _T) {
return SPIRV_BUILTIN(ConvertSToF, _RTN_f32_i64, _Rfloat_rtn)( _T );
}
float OVERLOADABLE convert_float_rtp(long _T) {
return SPIRV_BUILTIN(ConvertSToF, _RTP_f32_i64, _Rfloat_rtp)( _T );
}
float OVERLOADABLE convert_float_rtz(long _T) {
return SPIRV_BUILTIN(ConvertSToF, _RTZ_f32_i64, _Rfloat_rtz)( _T );
}
float OVERLOADABLE convert_float(ulong _T) {
return SPIRV_BUILTIN(ConvertUToF, _f32_i64, _Rfloat)( _T );
}
float OVERLOADABLE convert_float_rtn(ulong _T) {
return SPIRV_BUILTIN(ConvertUToF, _RTN_f32_i64, _Rfloat_rtn)( _T );
}
float OVERLOADABLE convert_float_rtp(ulong _T) {
return SPIRV_BUILTIN(ConvertUToF, _RTP_f32_i64, _Rfloat_rtp)( _T );
}
float OVERLOADABLE convert_float_rtz(ulong _T) {
return SPIRV_BUILTIN(ConvertUToF, _RTZ_f32_i64, _Rfloat_rtz)( _T );
}
#if defined(cl_khr_fp64)
double OVERLOADABLE convert_double_rtn(long _T) {
return SPIRV_BUILTIN(ConvertSToF, _RTN_f64_i64, _Rdouble_rtn)( _T );
}
double OVERLOADABLE convert_double_rtp(long _T) {
return SPIRV_BUILTIN(ConvertSToF, _RTP_f64_i64, _Rdouble_rtp)( _T );
}
double OVERLOADABLE convert_double_rtz(long _T) {
return SPIRV_BUILTIN(ConvertSToF, _RTZ_f64_i64, _Rdouble_rtz)( _T );
}
double OVERLOADABLE convert_double_rtn(ulong _T) {
return SPIRV_BUILTIN(ConvertUToF, _RTN_f64_i64, _Rdouble_rtn)( _T );
}
double OVERLOADABLE convert_double_rtp(ulong _T) {
return SPIRV_BUILTIN(ConvertUToF, _RTP_f64_i64, _Rdouble_rtp)( _T );
}
double OVERLOADABLE convert_double_rtz(ulong _T) {
return SPIRV_BUILTIN(ConvertUToF, _RTZ_f64_i64, _Rdouble_rtz)( _T );
}
#endif // defined(cl_khr_fp64)
|
