nsz Git - musl/blob - src/complex/clogl.c

   1 #include "libm.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 cpackl(logl(r), phi);
  17 }
  18 #endif