cacoshl.c raw

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