|
| 1 | +#include "types.h" |
| 2 | + |
| 3 | +#define CAST_BASIC(FN, To, Ti) __device__ To FN(Ti in) { return (To) in; } |
| 4 | + |
| 5 | +#define CAST_BASIC_BOOL(FN, To, Ti) __device__ To FN(Ti in) { return (To)(in != 0); } |
| 6 | + |
| 7 | +#define CAST(T, X) \ |
| 8 | + CAST_BASIC(___mk##X, T, float) \ |
| 9 | + CAST_BASIC(___mk##X, T, double) \ |
| 10 | + CAST_BASIC(___mk##X, T, int) \ |
| 11 | + CAST_BASIC(___mk##X, T, uint) \ |
| 12 | + CAST_BASIC(___mk##X, T, char) \ |
| 13 | + CAST_BASIC(___mk##X, T, uchar) \ |
| 14 | + CAST_BASIC(___mk##X, T, intl) \ |
| 15 | + CAST_BASIC(___mk##X, T, uintl) \ |
| 16 | + |
| 17 | +CAST(float, S) |
| 18 | +CAST(double, D) |
| 19 | +CAST(int, I) |
| 20 | +CAST(intl, X) |
| 21 | +CAST(uint, U) |
| 22 | +CAST(uchar, V) |
| 23 | +CAST(uintl, Y) |
| 24 | + |
| 25 | +CAST_BASIC_BOOL(___mkJ, char, float) |
| 26 | +CAST_BASIC_BOOL(___mkJ, char, double) |
| 27 | +CAST_BASIC_BOOL(___mkJ, char, int) |
| 28 | +CAST_BASIC_BOOL(___mkJ, char, uint) |
| 29 | +CAST_BASIC_BOOL(___mkJ, char, char) |
| 30 | +CAST_BASIC_BOOL(___mkJ, char, uchar) |
| 31 | +CAST_BASIC_BOOL(___mkJ, char, intl) |
| 32 | +CAST_BASIC_BOOL(___mkJ, char, uintl) |
| 33 | + |
| 34 | +#define CPLX_BASIC(FN, To, Tr, Ti) \ |
| 35 | + __device__ To FN(Ti in) \ |
| 36 | + { \ |
| 37 | + To out = {(Tr)in, 0}; \ |
| 38 | + return out; \ |
| 39 | + } \ |
| 40 | + |
| 41 | +#define CPLX_CAST(T, Tr, X) \ |
| 42 | + CPLX_BASIC(___mk##X, T, Tr, float) \ |
| 43 | + CPLX_BASIC(___mk##X, T, Tr, double) \ |
| 44 | + CPLX_BASIC(___mk##X, T, Tr, int) \ |
| 45 | + CPLX_BASIC(___mk##X, T, Tr, uint) \ |
| 46 | + CPLX_BASIC(___mk##X, T, Tr, char) \ |
| 47 | + CPLX_BASIC(___mk##X, T, Tr, uchar) \ |
| 48 | + |
| 49 | +CPLX_CAST(cfloat, float, C) |
| 50 | +CPLX_CAST(cdouble, double, Z) |
| 51 | + |
| 52 | +__device__ cfloat ___mkC(cdouble C) |
| 53 | +{ |
| 54 | + cfloat res = {C.x, C.y}; |
| 55 | + return res; |
| 56 | +} |
| 57 | + |
| 58 | +__device__ cdouble ___mkZ(cfloat C) |
| 59 | +{ |
| 60 | + cdouble res = {C.x, C.y}; |
| 61 | + return res; |
| 62 | +} |
| 63 | + |
| 64 | +__device__ float ___real(cfloat in) { return in.x; } |
| 65 | +__device__ double ___real(cdouble in) { return in.x; } |
| 66 | + |
| 67 | + |
| 68 | +__device__ float ___imag(cfloat in) { return in.y; } |
| 69 | +__device__ double ___imag(cdouble in) { return in.y; } |
| 70 | + |
| 71 | +__device__ cfloat ___cplx(float l, float r) { cfloat out = {l, r}; return out; } |
| 72 | +__device__ cdouble ___cplx(double l, double r) { cdouble out = {l, r}; return out; } |
| 73 | + |
| 74 | +__device__ cfloat ___conj(cfloat in) { return cuConjf(in); } |
| 75 | +__device__ cdouble ___conj(cdouble in) { return cuConj (in); } |
0 commit comments