20 lines
332 B
C
20 lines
332 B
C
#include <limits.h>
|
|
#include <math.h>
|
|
#include <float.h>
|
|
|
|
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
|
|
long double scalblnl(long double x, long n)
|
|
{
|
|
return scalbln(x, n);
|
|
}
|
|
#else
|
|
long double scalblnl(long double x, long n)
|
|
{
|
|
if (n > INT_MAX)
|
|
n = INT_MAX;
|
|
else if (n < INT_MIN)
|
|
n = INT_MIN;
|
|
return scalbnl(x, n);
|
|
}
|
|
#endif
|