clogl.c raw

   1  #include "complex_impl.h"
   2  
   3  #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
   4  long double complex clogl(long double complex z)
   5  {
   6  	return clog(z);
   7  }
   8  #else
   9  // FIXME
  10  long double complex clogl(long double complex z)
  11  {
  12  	long double r, phi;
  13  
  14  	r = cabsl(z);
  15  	phi = cargl(z);
  16  	return CMPLXL(logl(r), phi);
  17  }
  18  #endif
  19