lib/glibc
1
0
Fork 0
mirror of https://sourceware.org/git/glibc.git synced 2025-07-28 00:21:52 +03:00
Code Activity

Fix wrong ussage of sincos for subnormal arguments

Browse Source
This commit is contained in:
Liubov Dmitrieva
2012-09-25 20:41:17 +02:00
committed by Andreas Jaeger
parent 203e56032f
commit 6d3bf19931
19 changed files with 296 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
math/s_ctanl.c
View File

@ -53,11 +53,20 @@ __ctanl (__complex__ long double x)
long double sinrx, cosrx;
long double den;
const int t = (int) ((LDBL_MAX_EXP - 1) * M_LN2l / 2);
int rcls = fpclassify (__real__ x);
/* tan(x+iy) = (sin(2x) + i*sinh(2y))/(cos(2x) + cosh(2y))
= (sin(x)*cos(x) + i*sinh(y)*cosh(y)/(cos(x)^2 + sinh(y)^2). */
__sincosl (__real__ x, &sinrx, &cosrx);
if (__builtin_expect (rcls != FP_SUBNORMAL, 1))
{
__sincosl (__real__ x, &sinrx, &cosrx);
}
else
{
sinrx = __real__ x;
cosrx = 1.0;
}
if (fabsl (__imag__ x) > t)
{