src/complex/cprojl.c

   1 #include "libm.h"
   2
   3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
   4 long double complex cprojl(long double complex z)
   5 {
   6         return cproj(z);
   7 }
   8 #else
   9 long double complex cprojl(long double complex z)
  10 {
  11         if (isinf(creall(z)) || isinf(cimagl(z)))
  12                 return CMPLXL(INFINITY, copysignl(0.0, creall(z)));
  13         return z;
  14 }
  15 #endif