system/freebsd-src
system/freebsd-src
1
0
Fork 0
mirror of https://github.com/freebsd/freebsd-src synced 2024-10-05 08:00:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

Changed spelling of the request-to-inline macro name to match the change

Browse source 
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.
This commit is contained in:
Bruce Evans 2005-11-28 05:35:32 +00:00
parent 59aad933ab
commit 960d3da0f0
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=152870
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/msun/src/k_tanf.c
View file

@ -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;

3
lib/msun/src/s_tanf.c
View file

@ -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"