19 lines
304 B
C
19 lines
304 B
C
#include "complex_impl.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 CMPLXL(logl(r), phi);
|
|
}
|
|
#endif
|