cacosl.c 329 B

12345678910111213141516
  1. #include "libm.h"
  2. #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
  3. long double complex cacosl(long double complex z)
  4. {
  5. return cacos(z);
  6. }
  7. #else
  8. // FIXME
  9. #define PI_2 1.57079632679489661923132169163975144L
  10. long double complex cacosl(long double complex z)
  11. {
  12. z = casinl(z);
  13. return CMPLXL(PI_2 - creall(z), -cimagl(z));
  14. }
  15. #endif