From a9570d9f942c778c099c84d08f34773b14f0d9c8 Mon Sep 17 00:00:00 2001
From: bde <bde@FreeBSD.org>
Date: Thu, 20 Feb 1997 13:35:15 +0000
Subject: Split up the Bessel function wrapper files so that most wrapper
 functions are in their own file.

---
 lib/msun/src/w_j0.c | 30 +-----------------------------
 1 file changed, 1 insertion(+), 29 deletions(-)

(limited to 'lib/msun/src/w_j0.c')

diff --git a/lib/msun/src/w_j0.c b/lib/msun/src/w_j0.c
index 93a9c70..e1a4f85 100644
--- a/lib/msun/src/w_j0.c
+++ b/lib/msun/src/w_j0.c
@@ -15,7 +15,7 @@ static char rcsid[] = "$FreeBSD$";
 #endif
 
 /*
- * wrapper j0(double x), y0(double x)
+ * wrapper j0(double x)
  */
 
 #include "math.h"
@@ -39,31 +39,3 @@ static char rcsid[] = "$FreeBSD$";
 	    return z;
 #endif
 }
-
-#ifdef __STDC__
-	double y0(double x)		/* wrapper y0 */
-#else
-	double y0(x)			/* wrapper y0 */
-	double x;
-#endif
-{
-#ifdef _IEEE_LIBM
-	return __ieee754_y0(x);
-#else
-	double z;
-	z = __ieee754_y0(x);
-	if(_LIB_VERSION == _IEEE_ || isnan(x) ) return z;
-        if(x <= 0.0){
-                if(x==0.0)
-                    /* d= -one/(x-x); */
-                    return __kernel_standard(x,x,8);
-                else
-                    /* d = zero/(x-x); */
-                    return __kernel_standard(x,x,9);
-        }
-	if(x>X_TLOSS) {
-	        return __kernel_standard(x,x,35); /* y0(x>X_TLOSS) */
-	} else
-	    return z;
-#endif
-}
-- 
cgit v1.1