musl - musl - an implementation of the standard library for Linux-based systems

diff --git a/src/math/scalbnl.c b/src/math/scalbnl.c
index 08a4c587..db44dab0 100644
--- a/src/math/scalbnl.c
+++ b/src/math/scalbnl.c

@@ -20,11 +20,11 @@ long double scalbnl(long double x, int n)

n = 16383;

}

} else if (n < -16382) {

- x *= 0x1p-16382L;

- n += 16382;

+ x *= 0x1p-16382L * 0x1p113L;

+ n += 16382 - 113;

if (n < -16382) {

- x *= 0x1p-16382L;

- n += 16382;

+ x *= 0x1p-16382L * 0x1p113L;

+ n += 16382 - 113;

if (n < -16382)

n = -16382;

}