From 960d3da0f0d929349a01e521752c61a33139b64a Mon Sep 17 00:00:00 2001 From: Bruce Evans Date: Mon, 28 Nov 2005 05:35:32 +0000 Subject: [PATCH] Changed spelling of the request-to-inline macro name to match the change of the function name. Added my (non-)copyright. In k_tanf.c, added the first set of redundant parentheses to control grouping which was claimed to be added in the previous commit. --- lib/msun/src/k_tanf.c | 7 ++++--- lib/msun/src/s_tanf.c | 3 ++- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lib/msun/src/k_tanf.c b/lib/msun/src/k_tanf.c index 850248edf98b..8d084740b3f9 100644 --- a/lib/msun/src/k_tanf.c +++ b/lib/msun/src/k_tanf.c @@ -1,5 +1,6 @@ /* k_tanf.c -- float version of k_tan.c * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com. + * Optimized by Bruce D. Evans. */ /* @@ -12,7 +13,7 @@ * ==================================================== */ -#ifndef INLINE_KERNEL_TANF +#ifndef INLINE_KERNEL_TANDF #ifndef lint static char rcsid[] = "$FreeBSD$"; #endif @@ -32,7 +33,7 @@ T[] = { 0x1362b9bf971bcd.0p-59, /* 0.00946564784943673166728 */ }; -#ifdef INLINE_KERNEL_TANF +#ifdef INLINE_KERNEL_TANDF extern inline #endif float @@ -46,7 +47,7 @@ __kernel_tandf(double x, int iy) * x^5*(T[1]+x^4*T[3]+x^8*T[5]) + * x^5*(x^2*(T[2]+x^4*T[4])) */ - r = T[1]+w*(T[3]+w*T[5]) + z*(T[2]+w*T[4]); + r = (T[1]+w*(T[3]+w*T[5])) + z*(T[2]+w*T[4]); s = z*x; r = (x+s*T[0])+(s*z)*r; if(iy==1) return r; diff --git a/lib/msun/src/s_tanf.c b/lib/msun/src/s_tanf.c index a78957ffe9c8..9a8355598aee 100644 --- a/lib/msun/src/s_tanf.c +++ b/lib/msun/src/s_tanf.c @@ -1,5 +1,6 @@ /* s_tanf.c -- float version of s_tan.c. * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com. + * Optimized by Bruce D. Evans. */ /* @@ -18,7 +19,7 @@ static char rcsid[] = "$FreeBSD$"; #endif #include "math.h" -#define INLINE_KERNEL_TANF +#define INLINE_KERNEL_TANDF #include "math_private.h" #include "k_tanf.c"