From 5f8df0bcf91a064c335ba9c37f58c0073b07ede6 Mon Sep 17 00:00:00 2001 From: kargl Date: Mon, 3 Jun 2013 18:18:08 +0000 Subject: Rename a few P2, P3, ... coefficients to A2, A3, ... missed in my previous commit. --- lib/msun/ld80/s_expl.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/msun') diff --git a/lib/msun/ld80/s_expl.c b/lib/msun/ld80/s_expl.c index d53319f..5b07276 100644 --- a/lib/msun/ld80/s_expl.c +++ b/lib/msun/ld80/s_expl.c @@ -290,10 +290,10 @@ expl(long double x) /* Evaluate expl(midpoint[n2] + r1 + r2) = tbl[n2] * expl(r1 + r2). */ /* Here q = q(r), not q(r1), since r1 is lopped like L1. */ - t45 = r * P5 + P4; + t45 = r * A5 + A4; z = r * r; - t23 = r * P3 + P2; - q = r2 + z * t23 + z * z * t45 + z * z * z * P6; + t23 = r * A3 + A2; + q = r2 + z * t23 + z * z * t45 + z * z * z * A6; t = (long double)tbl[n2].lo + tbl[n2].hi; t = tbl[n2].lo + t * (q + r1) + tbl[n2].hi; -- cgit v1.1