cacoshl.c 367 B

1234567891011121314151617
  1. #include "complex_impl.h"
  2. #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
  3. long double complex cacoshl(long double complex z)
  4. {
  5. return cacosh(z);
  6. }
  7. #else
  8. long double complex cacoshl(long double complex z)
  9. {
  10. int zineg = signbit(cimagl(z));
  11. z = cacosl(z);
  12. if (zineg) return CMPLXL(cimagl(z), -creall(z));
  13. else return CMPLXL(-cimagl(z), creall(z));
  14. }
  15. #endif