From 30bd4a6cc3a093fdb32db26ee8bc30cd7ef47622 Mon Sep 17 00:00:00 2001
From: Denis Vlasenko <vda.linux@googlemail.com>
Date: Sun, 28 Dec 2008 22:15:07 +0000
Subject: remove many functions which just call __ieee754_<function>, define
 them as aliases instead.

    text           data     bss     dec     hex filename
-  45402            180       4   45586    b212 lib/libm-0.9.30-svn.so
+  45302            180       4   45486    b1ae lib/libm-0.9.30-svn.so
---
 libm/e_jn.c | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

(limited to 'libm/e_jn.c')

diff --git a/libm/e_jn.c b/libm/e_jn.c
index b12a7f33a..3825bead8 100644
--- a/libm/e_jn.c
+++ b/libm/e_jn.c
@@ -200,6 +200,23 @@ double attribute_hidden __ieee754_jn(int n, double x)
 	if(sgn==1) return -b; else return b;
 }
 
+/*
+ * wrapper jn(int n, double x)
+ */
+#ifndef _IEEE_LIBM
+double jn(int n, double x)
+{
+	double z = __ieee754_jn(n, x);
+	if (_LIB_VERSION == _IEEE_ || isnan(x))
+		return z;
+	if (fabs(x) > X_TLOSS)
+		return __kernel_standard((double)n, x, 38); /* jn(|x|>X_TLOSS,n) */
+	return z;
+}
+#else
+strong_alias(__ieee754_jn, jn)
+#endif
+
 double attribute_hidden __ieee754_yn(int n, double x)
 {
 	int32_t i,hx,ix,lx;
@@ -256,3 +273,26 @@ double attribute_hidden __ieee754_yn(int n, double x)
 	}
 	if(sign>0) return b; else return -b;
 }
+
+/*
+ * wrapper yn(int n, double x)
+ */
+#ifndef _IEEE_LIBM
+double yn(int n, double x)	/* wrapper yn */
+{
+	double z = __ieee754_yn(n, x);
+	if (_LIB_VERSION == _IEEE_ || isnan(x))
+		return z;
+	if (x <= 0.0) {
+		if(x == 0.0) /* d= -one/(x-x); */
+			return __kernel_standard((double)n, x, 12);
+		/* d = zero/(x-x); */
+		return __kernel_standard((double)n, x, 13);
+	}
+	if (x > X_TLOSS)
+		return __kernel_standard((double)n, x, 39); /* yn(x>X_TLOSS,n) */
+	return z;
+}
+#else
+strong_alias(__ieee754_yn, yn)
+#endif
-- 
cgit v1.2.3