musl - musl - an implementation of the standard library for Linux-based systems

index : musl
musl - an implementation of the standard library for Linux-based systems
summary refs log tree commit diff
path: root/src/math/sincos.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/math/sincos.c')
-rw-r--r--src/math/sincos.c 12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/math/sincos.c b/src/math/sincos.c
index 442e285e..49f8a098 100644
--- a/src/math/sincos.c
+++ b/src/math/sincos.c
@@ -15,7 +15,8 @@
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;
@@ -24,11 +25,10 @@ void sincos(double x, double *sin, double *cos)
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);
generated by cgit v1.2.1 (git 2.18.0) at 2025年10月04日 04:14:07 +0000

AltStyle によって変換されたページ (->オリジナル) /