| s_tan.c (21673) | s_tan.c (22808) |
|---|---|
| 1/* @(#)s_tan.c 5.1 93/09/24 */ 2/* 3 * ==================================================== 4 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 5 * 6 * Developed at SunPro, a Sun Microsystems, Inc. business. 7 * Permission to use, copy, modify, and distribute this 8 * software is freely granted, provided that this notice 9 * is preserved. 10 * ==================================================== 11 */ 12 13#ifndef lint | 1/* @(#)s_tan.c 5.1 93/09/24 */ 2/* 3 * ==================================================== 4 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 5 * 6 * Developed at SunPro, a Sun Microsystems, Inc. business. 7 * Permission to use, copy, modify, and distribute this 8 * software is freely granted, provided that this notice 9 * is preserved. 10 * ==================================================== 11 */ 12 13#ifndef lint |
| 14static char rcsid[] = "$FreeBSD: head/lib/msun/src/s_tan.c 21673 1997-01-14 07:20:47Z jkh $"; | 14static char rcsid[] = "$FreeBSD: head/lib/msun/src/s_tan.c 22808 1997-02-16 18:26:31Z bde $"; |
| 15#endif 16 17/* tan(x) 18 * Return tangent function of x. 19 * 20 * kernel function: 21 * __kernel_tan ... tangent function on [-pi/4,pi/4] 22 * __ieee754_rem_pio2 ... argument reduction routine --- 20 unchanged lines hidden (view full) --- 43 * Accuracy: 44 * TRIG(x) returns trig(x) nearly rounded 45 */ 46 47#include "math.h" 48#include "math_private.h" 49 50#ifdef __STDC__ | 15#endif 16 17/* tan(x) 18 * Return tangent function of x. 19 * 20 * kernel function: 21 * __kernel_tan ... tangent function on [-pi/4,pi/4] 22 * __ieee754_rem_pio2 ... argument reduction routine --- 20 unchanged lines hidden (view full) --- 43 * Accuracy: 44 * TRIG(x) returns trig(x) nearly rounded 45 */ 46 47#include "math.h" 48#include "math_private.h" 49 50#ifdef __STDC__ |
| 51 double tan(double x) | 51 double __generic_tan(double x) |
| 52#else | 52#else |
| 53 double tan(x) | 53 double __generic_tan(x) |
| 54 double x; 55#endif 56{ 57 double y[2],z=0.0; 58 int32_t n, ix; 59 60 /* High word of x. */ 61 GET_HIGH_WORD(ix,x); --- 15 unchanged lines hidden --- | 54 double x; 55#endif 56{ 57 double y[2],z=0.0; 58 int32_t n, ix; 59 60 /* High word of x. */ 61 GET_HIGH_WORD(ix,x); --- 15 unchanged lines hidden --- |