Fcalva/OpenLibm
1
0
Fork 0
mirror of https://git.planet-casio.com/Lephenixnoir/OpenLibm.git synced 2024-12-28 20:43:41 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update to the latest s_scalbln.c from msun.

Browse source
This commit is contained in:
Viral B. Shah 2015-02-20 23:56:48 +05:30
parent 763da44606
commit a2f4e102f2
1 changed files with 9 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
src/s_scalbln.c
View file

@ -24,55 +24,30 @@
* SUCH DAMAGE. * SUCH DAMAGE.
*/ */
#include "cdefs-compat.h" #include <sys/cdefs.h>
//__FBSDID("$FreeBSD: src/lib/msun/src/s_scalbln.c,v 1.2 2005/03/07 04:57:50 das Exp $");
#include <limits.h>
#include <openlibm_math.h> #include <openlibm_math.h>
#include "math_private.h" #define NMAX 65536
#define NMIN -65536
DLLEXPORT double DLLEXPORT double
scalbln (double x, long n) scalbln(double x, long n)
{ {
int in;
in = (int)n; return (scalbn(x, (n > NMAX) ? NMAX : (n < NMIN) ? NMIN : (int)n));
if (in != n) {
if (n > 0)
in = INT_MAX;
else
in = INT_MIN;
}
return (scalbn(x, in));
} }
DLLEXPORT float DLLEXPORT float
scalblnf (float x, long n) scalblnf(float x, long n)
{ {
int in;
in = (int)n; return (scalbnf(x, (n > NMAX) ? NMAX : (n < NMIN) ? NMIN : (int)n));
if (in != n) {
if (n > 0)
in = INT_MAX;
else
in = INT_MIN;
}
return (scalbnf(x, in));
} }
DLLEXPORT long double DLLEXPORT long double
scalblnl (long double x, long n) scalblnl(long double x, long n)
{ {
int in;
in = (int)n; return (scalbnl(x, (n > NMAX) ? NMAX : (n < NMIN) ? NMIN : (int)n));
if (in != n) {
if (n > 0)
in = INT_MAX;
else
in = INT_MIN;
}
return (scalbnl(x, (int)n));
} }