about summary refs log tree commit diff
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)