libclc/generic/lib/math/minmag.inc

   1 #ifdef __CLC_SCALAR
   2 #define __CLC_VECSIZE
   3 #endif
   4
   5 #if __CLC_FPSIZE == 64
   6 #define __CLC_CONVERT_NATN __CLC_XCONCAT(convert_long, __CLC_VECSIZE)
   7 #elif __CLC_FPSIZE == 32
   8 #define __CLC_CONVERT_NATN __CLC_XCONCAT(convert_int, __CLC_VECSIZE)
   9 #elif __CLC_FPSIZE == 16
  10 #define __CLC_CONVERT_NATN __CLC_XCONCAT(convert_short, __CLC_VECSIZE)
  11 #endif
  12
  13 _CLC_OVERLOAD _CLC_DEF __CLC_GENTYPE minmag(__CLC_GENTYPE x, __CLC_GENTYPE y) {
  14   const __CLC_GENTYPE res = select(y, x, __CLC_CONVERT_NATN(isless(fabs(x), fabs(y))));
  15   return select(res, fmin(x, y), __CLC_CONVERT_NATN(isnan(x) | isnan(y) | isequal(fabs(x), fabs(y))));
  16 }
  17
  18 #undef __CLC_CONVERT_NATN
  19
  20 #ifdef __CLC_SCALAR
  21 #undef __CLC_VECSIZE
  22 #endif