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