aboutsummaryrefslogtreecommitdiff
path: root/sysdeps/libm-ieee754
diff options
context:
space:
mode:
Diffstat (limited to 'sysdeps/libm-ieee754')
-rw-r--r--sysdeps/libm-ieee754/e_scalb.c14
-rw-r--r--sysdeps/libm-ieee754/e_scalbl.c14
-rw-r--r--sysdeps/libm-ieee754/s_ctan.c2
-rw-r--r--sysdeps/libm-ieee754/s_ctanf.c2
-rw-r--r--sysdeps/libm-ieee754/s_ctanh.c2
-rw-r--r--sysdeps/libm-ieee754/s_ctanhf.c2
-rw-r--r--sysdeps/libm-ieee754/s_ctanhl.c2
-rw-r--r--sysdeps/libm-ieee754/s_ctanl.c4
-rw-r--r--sysdeps/libm-ieee754/s_nearbyintf.c9
-rw-r--r--sysdeps/libm-ieee754/s_nearbyintl.c10
10 files changed, 27 insertions, 34 deletions
diff --git a/sysdeps/libm-ieee754/e_scalb.c b/sysdeps/libm-ieee754/e_scalb.c
index 7f66ec7737..86d10bf683 100644
--- a/sysdeps/libm-ieee754/e_scalb.c
+++ b/sysdeps/libm-ieee754/e_scalb.c
@@ -40,16 +40,16 @@ static char rcsid[] = "$NetBSD: e_scalb.c,v 1.6 1995/05/10 20:46:09 jtc Exp $";
#endif
{
#ifdef _SCALB_INT
- return scalbn(x,fn);
+ return __scalbn(x,fn);
#else
- if (isnan(x)||isnan(fn)) return x*fn;
- if (!finite(fn)) {
+ if (__isnan(x)||__isnan(fn)) return x*fn;
+ if (!__finite(fn)) {
if(fn>0.0) return x*fn;
else return x/(-fn);
}
- if (rint(fn)!=fn) return (fn-fn)/(fn-fn);
- if ( fn > 65000.0) return scalbn(x, 65000);
- if (-fn > 65000.0) return scalbn(x,-65000);
- return scalbn(x,(int)fn);
+ if (__rint(fn)!=fn) return (fn-fn)/(fn-fn);
+ if ( fn > 65000.0) return __scalbn(x, 65000);
+ if (-fn > 65000.0) return __scalbn(x,-65000);
+ return __scalbn(x,(int)fn);
#endif
}
diff --git a/sysdeps/libm-ieee754/e_scalbl.c b/sysdeps/libm-ieee754/e_scalbl.c
index 0dd36d422d..823eebda91 100644
--- a/sysdeps/libm-ieee754/e_scalbl.c
+++ b/sysdeps/libm-ieee754/e_scalbl.c
@@ -44,16 +44,16 @@ static char rcsid[] = "$NetBSD: $";
#endif
{
#ifdef _SCALB_INT
- return scalbnl(x,fn);
+ return __scalbnl(x,fn);
#else
- if (isnanl(x)||isnanl(fn)) return x*fn;
- if (!finitel(fn)) {
+ if (__isnanl(x)||__isnanl(fn)) return x*fn;
+ if (!__finitel(fn)) {
if(fn>0.0) return x*fn;
else return x/(-fn);
}
- if (rintl(fn)!=fn) return (fn-fn)/(fn-fn);
- if ( fn > 65000.0) return scalbnl(x, 65000);
- if (-fn > 65000.0) return scalbnl(x,-65000);
- return scalbnl(x,(int)fn);
+ if (__rintl(fn)!=fn) return (fn-fn)/(fn-fn);
+ if ( fn > 65000.0) return __scalbnl(x, 65000);
+ if (-fn > 65000.0) return __scalbnl(x,-65000);
+ return __scalbnl(x,(int)fn);
#endif
}
diff --git a/sysdeps/libm-ieee754/s_ctan.c b/sysdeps/libm-ieee754/s_ctan.c
index 069b96c1d6..c68c3ad3e4 100644
--- a/sysdeps/libm-ieee754/s_ctan.c
+++ b/sysdeps/libm-ieee754/s_ctan.c
@@ -29,7 +29,7 @@ __ctan (__complex__ double x)
{
__complex__ double res;
- if (!finite (__real__ x) || !finite (__imag__ x))
+ if (!isfinite (__real__ x) || !isfinite (__imag__ x))
{
if (__isinf (__imag__ x))
{
diff --git a/sysdeps/libm-ieee754/s_ctanf.c b/sysdeps/libm-ieee754/s_ctanf.c
index 1c6fdca81d..4209587b37 100644
--- a/sysdeps/libm-ieee754/s_ctanf.c
+++ b/sysdeps/libm-ieee754/s_ctanf.c
@@ -29,7 +29,7 @@ __ctanf (__complex__ float x)
{
__complex__ float res;
- if (!finite (__real__ x) || !finite (__imag__ x))
+ if (!isfinite (__real__ x) || !isfinite (__imag__ x))
{
if (__isinff (__imag__ x))
{
diff --git a/sysdeps/libm-ieee754/s_ctanh.c b/sysdeps/libm-ieee754/s_ctanh.c
index a16f9c8d02..eb6ff84817 100644
--- a/sysdeps/libm-ieee754/s_ctanh.c
+++ b/sysdeps/libm-ieee754/s_ctanh.c
@@ -29,7 +29,7 @@ __ctanh (__complex__ double x)
{
__complex__ double res;
- if (!finite (__real__ x) || !finite (__imag__ x))
+ if (!isfinite (__real__ x) || !isfinite (__imag__ x))
{
if (__isinf (__real__ x))
{
diff --git a/sysdeps/libm-ieee754/s_ctanhf.c b/sysdeps/libm-ieee754/s_ctanhf.c
index 45548d518c..aec02fe7c4 100644
--- a/sysdeps/libm-ieee754/s_ctanhf.c
+++ b/sysdeps/libm-ieee754/s_ctanhf.c
@@ -29,7 +29,7 @@ __ctanhf (__complex__ float x)
{
__complex__ float res;
- if (!finite (__real__ x) || !finite (__imag__ x))
+ if (!isfinite (__real__ x) || !isfinite (__imag__ x))
{
if (__isinff (__real__ x))
{
diff --git a/sysdeps/libm-ieee754/s_ctanhl.c b/sysdeps/libm-ieee754/s_ctanhl.c
index 5c466167a6..8ed131e9a6 100644
--- a/sysdeps/libm-ieee754/s_ctanhl.c
+++ b/sysdeps/libm-ieee754/s_ctanhl.c
@@ -29,7 +29,7 @@ __ctanhl (__complex__ long double x)
{
__complex__ long double res;
- if (!finite (__real__ x) || !finite (__imag__ x))
+ if (!isfinite (__real__ x) || !isfinite (__imag__ x))
{
if (__isinfl (__real__ x))
{
diff --git a/sysdeps/libm-ieee754/s_ctanl.c b/sysdeps/libm-ieee754/s_ctanl.c
index b4a2b4a13c..88c02da2ea 100644
--- a/sysdeps/libm-ieee754/s_ctanl.c
+++ b/sysdeps/libm-ieee754/s_ctanl.c
@@ -27,9 +27,9 @@
__complex__ long double
__ctanl (__complex__ long double x)
{
- __complex__ double res;
+ __complex__ long double res;
- if (!finite (__real__ x) || !finite (__imag__ x))
+ if (!isfinite (__real__ x) || !isfinite (__imag__ x))
{
if (__isinfl (__imag__ x))
{
diff --git a/sysdeps/libm-ieee754/s_nearbyintf.c b/sysdeps/libm-ieee754/s_nearbyintf.c
index dc33fa59f9..7d6f262f51 100644
--- a/sysdeps/libm-ieee754/s_nearbyintf.c
+++ b/sysdeps/libm-ieee754/s_nearbyintf.c
@@ -14,9 +14,6 @@
* ====================================================
*/
-#if defined(LIBM_SCCS) && !defined(lint)
-static char rcsid[] = "$NetBSD: s_rintf.c,v 1.4 1995/05/10 20:48:06 jtc Exp $";
-#endif
#include <fenv.h>
#include "math.h"
@@ -33,9 +30,9 @@ TWO23[2]={
};
#ifdef __STDC__
- float __rintf(float x)
+ float __nearbyintf(float x)
#else
- float __rintf(x)
+ float __nearbyintf(x)
float x;
#endif
{
@@ -77,4 +74,4 @@ TWO23[2]={
fesetenv (&env);
return t;
}
-weak_alias (__rintf, rintf)
+weak_alias (__nearbyintf, nearbyintf)
diff --git a/sysdeps/libm-ieee754/s_nearbyintl.c b/sysdeps/libm-ieee754/s_nearbyintl.c
index b6a865443a..3b0715e5a5 100644
--- a/sysdeps/libm-ieee754/s_nearbyintl.c
+++ b/sysdeps/libm-ieee754/s_nearbyintl.c
@@ -15,10 +15,6 @@
* ====================================================
*/
-#if defined(LIBM_SCCS) && !defined(lint)
-static char rcsid[] = "$NetBSD: $";
-#endif
-
/*
* rintl(x)
* Return x rounded to integral value according to the prevailing
@@ -44,9 +40,9 @@ TWO63[2]={
};
#ifdef __STDC__
- long double __rintl(long double x)
+ long double __nearbyintl(long double x)
#else
- long double __rintl(x)
+ long double __nearbyintl(x)
long double x;
#endif
{
@@ -101,4 +97,4 @@ TWO63[2]={
fesetenv (&env);
return t;
}
-weak_alias (__rintl, rintl)
+weak_alias (__nearbyintl, nearbyintl)