kc3-lang/SDL

diff --git a/src/libm/s_scalbn.c b/src/libm/s_scalbn.c
index dac2feb..3d8a718 100644
--- a/src/libm/s_scalbn.c
+++ b/src/libm/s_scalbn.c
@@ -45,7 +45,7 @@ double scalbln(double x, long n)
 	}
 	if (k == 0x7ff)
 		return x + x; /* NaN or Inf */
-	k = k + n;
+	k = (int32_t)(k + n);
 	if (k > 0x7fe)
 		return huge * copysign(huge, x); /* overflow */
 	if (n < -50000)