src/math/scalblnl.c

   1 #include <limits.h>
   2 #include <math.h>
   3 #include <float.h>
   4
   5 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
   6 long double scalblnl(long double x, long n)
   7 {
   8         return scalbln(x, n);
   9 }
  10 #else
  11 long double scalblnl(long double x, long n)
  12 {
  13         if (n > INT_MAX)
  14                 n = INT_MAX;
  15         else if (n < INT_MIN)
  16                 n = INT_MIN;
  17         return scalbnl(x, n);
  18 }
  19 #endif