mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-03-04 07:58:21 +00:00
19 lines
328 B
C
19 lines
328 B
C
|
#include "libc/limits.h"
|
||
|
|
#include "libc/math/math.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
|