projects
/
musl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
setjmp: optimize longjmp prologues
[musl]
/
src
/
math
/
sincos.c
diff --git
a/src/math/sincos.c
b/src/math/sincos.c
index
442e285
..
35b2d92
100644
(file)
--- a/
src/math/sincos.c
+++ b/
src/math/sincos.c
@@
-10,12
+10,14
@@
* ====================================================
*/
* ====================================================
*/
+#define _GNU_SOURCE
#include "libm.h"
void sincos(double x, double *sin, double *cos)
{
double y[2], s, c;
#include "libm.h"
void sincos(double x, double *sin, double *cos)
{
double y[2], s, c;
- uint32_t n, ix;
+ uint32_t ix;
+ unsigned n;
GET_HIGH_WORD(ix, x);
ix &= 0x7fffffff;
GET_HIGH_WORD(ix, x);
ix &= 0x7fffffff;
@@
-24,11
+26,10
@@
void sincos(double x, double *sin, double *cos)
if (ix <= 0x3fe921fb) {
/* if |x| < 2**-27 * sqrt(2) */
if (ix < 0x3e46a09e) {
if (ix <= 0x3fe921fb) {
/* if |x| < 2**-27 * sqrt(2) */
if (ix < 0x3e46a09e) {
- /* raise inexact if x != 0 */
- if ((int)x == 0) {
- *sin = x;
- *cos = 1.0;
- }
+ /* raise inexact if x!=0 and underflow if subnormal */
+ FORCE_EVAL(ix < 0x00100000 ? x/0x1p120f : x+0x1p120f);
+ *sin = x;
+ *cos = 1.0;
return;
}
*sin = __sin(x, 0.0, 0);
return;
}
*sin = __sin(x, 0.0, 0);