X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fmath%2Fscalbf.c;h=f44ed5b64a0ff12c4fb9e1f272b4c8ba8189f03a;hb=c243d6f09570010a448789dd296b14b7a61cb2ea;hp=0cc091f124347f7e4c4eb8726142a06d66890326;hpb=b69f695acedd4ce2798ef9ea28d834ceccc789bd;p=musl diff --git a/src/math/scalbf.c b/src/math/scalbf.c index 0cc091f1..f44ed5b6 100644 --- a/src/math/scalbf.c +++ b/src/math/scalbf.c @@ -13,19 +13,20 @@ * ==================================================== */ -#include "libm.h" +#define _GNU_SOURCE +#include float scalbf(float x, float fn) { if (isnan(x) || isnan(fn)) return x*fn; if (!isfinite(fn)) { - if (fn > (float)0.0) + if (fn > 0.0f) return x*fn; else return x/(-fn); } if (rintf(fn) != fn) return (fn-fn)/(fn-fn); - if ( fn > (float)65000.0) return scalbnf(x, 65000); - if (-fn > (float)65000.0) return scalbnf(x,-65000); + if ( fn > 65000.0f) return scalbnf(x, 65000); + if (-fn > 65000.0f) return scalbnf(x,-65000); return scalbnf(x,(int)fn); }