cprojl.c 314 B

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