cacosl.c raw

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