From 0c32c2635eedfcd6af3606735ac38197f8705734 Mon Sep 17 00:00:00 2001
From: Szabolcs Nagy <nsz@port70.net>
Date: Mon, 8 Sep 2014 15:51:42 +0200
Subject: [PATCH] prune math code on archs with binary64 long double

__polevll, __p1evll and exp10l were provided on archs when long double
is the same as double. The first two were completely unused and exp10l
can be a wrapper around exp10.
---
 src/math/__polevll.c | 3 +++
 src/math/exp10l.c    | 7 +++++++
 2 files changed, 10 insertions(+)

diff --git a/src/math/__polevll.c b/src/math/__polevll.c
index a2728651..ce1a8404 100644
--- a/src/math/__polevll.c
+++ b/src/math/__polevll.c
@@ -56,6 +56,8 @@
 
 #include "libm.h"
 
+#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
+#else
 /*
  * Polynomial evaluator:
  *  P[0] x^n  +  P[1] x^(n-1)  +  ...  +  P[n]
@@ -88,3 +90,4 @@ long double __p1evll(long double x, const long double *P, int n)
 
 	return y;
 }
+#endif
diff --git a/src/math/exp10l.c b/src/math/exp10l.c
index 22a4636a..33abc8b5 100644
--- a/src/math/exp10l.c
+++ b/src/math/exp10l.c
@@ -2,6 +2,12 @@
 #include <math.h>
 #include "libc.h"
 
+#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
+long double exp10l(long double x)
+{
+	return exp10(x);
+}
+#else
 long double exp10l(long double x)
 {
 	static const long double p10[] = {
@@ -18,5 +24,6 @@ long double exp10l(long double x)
 	}
 	return powl(10.0, x);
 }
+#endif
 
 weak_alias(exp10l, pow10l);