Print this page
5261 libm should stop using synonyms.h
5298 fabs is 0-sized, confuses dis(1) and others
Reviewed by: Josef 'Jeff' Sipek <jeffpc@josefsipek.net>
Approved by: Gordon Ross <gwr@nexenta.com>
| Split |
Close |
| Expand all |
| Collapse all |
--- old/usr/src/lib/libm/common/R/sinf.c
+++ new/usr/src/lib/libm/common/R/sinf.c
1 1 /*
2 2 * CDDL HEADER START
3 3 *
4 4 * The contents of this file are subject to the terms of the
5 5 * Common Development and Distribution License (the "License").
6 6 * You may not use this file except in compliance with the License.
7 7 *
8 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 9 * or http://www.opensolaris.org/os/licensing.
10 10 * See the License for the specific language governing permissions
11 11 * and limitations under the License.
12 12 *
13 13 * When distributing Covered Code, include this CDDL HEADER in each
14 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 15 * If applicable, add the following below this CDDL HEADER, with the
16 16 * fields enclosed by brackets "[]" replaced with your own identifying
17 17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 18 *
|
↓ open down ↓ |
18 lines elided |
↑ open up ↑ |
19 19 * CDDL HEADER END
20 20 */
21 21 /*
22 22 * Copyright 2011 Nexenta Systems, Inc. All rights reserved.
23 23 */
24 24 /*
25 25 * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
26 26 * Use is subject to license terms.
27 27 */
28 28
29 -#pragma weak sinf = __sinf
29 +#pragma weak __sinf = sinf
30 30
31 31 /*
32 32 * See sincosf.c
33 33 */
34 34
35 35 #include "libm.h"
36 36
37 37 extern const int _TBL_ipio2_inf[];
38 38 extern int __rem_pio2m(double *, double *, int, int, int, const int *);
39 39 #if defined(__i386) && !defined(__amd64)
40 40 extern int __swapRP(int);
41 41 #endif
42 42
43 43 static const double C[] = {
44 44 1.85735322054308378716204874632872525989806770558e-0003,
45 45 -1.95035094218403635082921458859320791358115801259e-0004,
46 46 5.38400550766074785970952495168558701485841707252e+0002,
47 47 -3.31975110777873728964197739157371509422022905947e+0001,
48 48 1.09349482127188401868272000389539985058873853699e-0003,
49 49 -5.03324285989964979398034700054920226866107675091e-0004,
50 50 2.43792880266971107750418061559602239831538067410e-0005,
51 51 9.14499072605666582228127405245558035523741471271e+0002,
52 52 -3.63151270591815439197122504991683846785293207730e+0001,
53 53 0.636619772367581343075535, /* 2^ -1 * 1.45F306DC9C883 */
54 54 0.5,
55 55 1.570796326734125614166, /* 2^ 0 * 1.921FB54400000 */
56 56 6.077100506506192601475e-11, /* 2^-34 * 1.0B4611A626331 */
57 57 };
58 58
59 59 #define S0 C[0]
60 60 #define S1 C[1]
61 61 #define S2 C[2]
62 62 #define S3 C[3]
63 63 #define C0 C[4]
64 64 #define C1 C[5]
65 65 #define C2 C[6]
66 66 #define C3 C[7]
67 67 #define C4 C[8]
68 68 #define invpio2 C[9]
69 69 #define half C[10]
70 70 #define pio2_1 C[11]
71 71 #define pio2_t C[12]
72 72
73 73 float
74 74 sinf(float x)
75 75 {
76 76 double y, z, w;
77 77 float f;
78 78 int n, ix, hx, hy;
79 79 volatile int i;
80 80
81 81 hx = *((int *)&x);
82 82 ix = hx & 0x7fffffff;
83 83
84 84 y = (double)x;
85 85
86 86 if (ix <= 0x4016cbe4) { /* |x| < 3*pi/4 */
87 87 if (ix <= 0x3f490fdb) { /* |x| < pi/4 */
88 88 if (ix <= 0x39800000) { /* |x| <= 2**-12 */
89 89 i = (int)y;
90 90 #ifdef lint
91 91 i = i;
92 92 #endif
93 93 return (x);
94 94 }
95 95 z = y * y;
96 96 return ((float)((y * (S0 + z * S1)) *
97 97 (S2 + z * (S3 + z))));
98 98 } else if (hx > 0) {
99 99 y = (y - pio2_1) - pio2_t;
100 100 z = y * y;
101 101 return ((float)(((C0 + z * C1) + (z * z) * C2) *
102 102 (C3 + z * (C4 + z))));
103 103 } else {
104 104 y = (y + pio2_1) + pio2_t;
105 105 z = y * y;
106 106 return ((float)-(((C0 + z * C1) + (z * z) * C2) *
107 107 (C3 + z * (C4 + z))));
108 108 }
109 109 } else if (ix <= 0x49c90fdb) { /* |x| < 2^19*pi */
110 110 #if defined(__i386) && !defined(__amd64)
111 111 int rp;
112 112
113 113 rp = __swapRP(fp_extended);
114 114 #endif
115 115 w = y * invpio2;
116 116 if (hx < 0)
117 117 n = (int)(w - half);
118 118 else
119 119 n = (int)(w + half);
120 120 y = (y - n * pio2_1) - n * pio2_t;
121 121 #if defined(__i386) && !defined(__amd64)
122 122 if (rp != fp_extended)
123 123 (void) __swapRP(rp);
124 124 #endif
125 125 } else {
126 126 if (ix >= 0x7f800000)
127 127 return (x / x); /* sin(Inf or NaN) is NaN */
128 128 hy = ((int *)&y)[HIWORD];
129 129 n = ((hy >> 20) & 0x7ff) - 1046;
130 130 ((int *)&w)[HIWORD] = (hy & 0xfffff) | 0x41600000;
131 131 ((int *)&w)[LOWORD] = ((int *)&y)[LOWORD];
132 132 n = __rem_pio2m(&w, &y, n, 1, 0, _TBL_ipio2_inf);
133 133 if (hy < 0) {
134 134 y = -y;
135 135 n = -n;
136 136 }
137 137 }
138 138
139 139 if (n & 1) {
140 140 /* compute cos y */
141 141 z = y * y;
142 142 f = (float)(((C0 + z * C1) + (z * z) * C2) *
143 143 (C3 + z * (C4 + z)));
144 144 } else {
145 145 /* compute sin y */
146 146 z = y * y;
147 147 f = (float)((y * (S0 + z * S1)) * (S2 + z * (S3 + z)));
148 148 }
149 149
150 150 return ((n & 2)? -f : f);
151 151 }
|
↓ open down ↓ |
112 lines elided |
↑ open up ↑ |
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX