29 lines
516 B
C
29 lines
516 B
C
/*
|
|
* wrapper log2l(X)
|
|
*/
|
|
|
|
#include "math.h"
|
|
#include "math_private.h"
|
|
|
|
long double
|
|
__log2l (long double x) /* wrapper log2l */
|
|
{
|
|
#ifdef _IEEE_LIBM
|
|
return __ieee754_log2l (x);
|
|
#else
|
|
long double z;
|
|
z = __ieee754_log2l (x);
|
|
if (_LIB_VERSION == _IEEE_ || __isnanl (x)) return z;
|
|
if (x <= 0.0)
|
|
{
|
|
if (x == 0.0)
|
|
return __kernel_standard (x, x, 248); /* log2l (0) */
|
|
else
|
|
return __kernel_standard (x, x, 249); /* log2l (x < 0) */
|
|
}
|
|
else
|
|
return z;
|
|
#endif
|
|
}
|
|
weak_alias (__log2l, log2l)
|