From fcc1e7039f92509ccca895432844dc26a2366671 Mon Sep 17 00:00:00 2001 From: Jon Beniston Date: Fri, 31 Aug 2018 22:42:29 +0100 Subject: [PATCH] e_scalb.c: Call scalbln instead of scalbn on 16-bit targets to ensure constant fits in an int. --- newlib/libm/math/e_scalb.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/newlib/libm/math/e_scalb.c b/newlib/libm/math/e_scalb.c index 0bb924b43..4d8bb8b71 100644 --- a/newlib/libm/math/e_scalb.c +++ b/newlib/libm/math/e_scalb.c @@ -46,8 +46,13 @@ else return x/(-fn); } if (rint(fn)!=fn) return (fn-fn)/(fn-fn); +#if INT_MAX == 32767 + if ( fn > 65000.0) return scalbln(x, 65000); + if (-fn > 65000.0) return scalbln(x,-65000); +#else if ( fn > 65000.0) return scalbn(x, 65000); if (-fn > 65000.0) return scalbn(x,-65000); +#endif return scalbn(x,(int)fn); #endif }