math/w_log2l.c

   1 /*
   2  * wrapper log2l(X)
   3  */
   4
   5 #include <math.h>
   6 #include "math_private.h"
   7
   8 long double
   9 __log2l (long double x) /* wrapper log2l */
  10 {
  11 #ifdef _IEEE_LIBM
  12   return __ieee754_log2l (x);
  13 #else
  14   long double z;
  15   z = __ieee754_log2l (x);
  16   if (_LIB_VERSION == _IEEE_ || __isnanl (x)) return z;
  17   if (x <= 0.0)
  18     {
  19       if (x == 0.0)
  20         return __kernel_standard (x, x, 248); /* log2l (0) */
  21       else
  22         return __kernel_standard (x, x, 249); /* log2l (x < 0) */
  23     }
  24   else
  25     return z;
  26 #endif
  27 }
  28 weak_alias (__log2l, log2l)