scalblnl.c raw

   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
  20