hanchenye-llvm-project/libclc/generic/lib/convert.cl

#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)