msvcrt: Use the jn()/yn() implementation from the bundled musl library.
This commit is contained in:
Alexandre Julliard
parent
5895cb5e93
commit
ec31d30ec0
2 changed files with 1 additions and 201 deletions
|
|
@ -5510,206 +5510,6 @@ int CDECL _isnan(double num)
|
||||||
return (u.i & ~0ull >> 1) > 0x7ffull << 52;
|
return (u.i & ~0ull >> 1) > 0x7ffull << 52;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*********************************************************************
|
|
||||||
* _jn (MSVCRT.@)
|
|
||||||
*
|
|
||||||
* Copied from musl: src/math/jn.c
|
|
||||||
*/
|
|
||||||
double CDECL _jn(int n, double x)
|
|
||||||
{
|
|
||||||
static const double invsqrtpi = 5.64189583547756279280e-01;
|
|
||||||
|
|
||||||
unsigned int ix, lx;
|
|
||||||
int nm1, i, sign;
|
|
||||||
double a, b, temp;
|
|
||||||
|
|
||||||
ix = *(ULONGLONG*)&x >> 32;
|
|
||||||
lx = *(ULONGLONG*)&x;
|
|
||||||
sign = ix >> 31;
|
|
||||||
ix &= 0x7fffffff;
|
|
||||||
|
|
||||||
if ((ix | (lx | -lx) >> 31) > 0x7ff00000) /* nan */
|
|
||||||
return x;
|
|
||||||
|
|
||||||
if (n == 0)
|
|
||||||
return _j0(x);
|
|
||||||
if (n < 0) {
|
|
||||||
nm1 = -(n + 1);
|
|
||||||
x = -x;
|
|
||||||
sign ^= 1;
|
|
||||||
} else {
|
|
||||||
nm1 = n-1;
|
|
||||||
}
|
|
||||||
if (nm1 == 0)
|
|
||||||
return j1(x);
|
|
||||||
|
|
||||||
sign &= n; /* even n: 0, odd n: signbit(x) */
|
|
||||||
x = fabs(x);
|
|
||||||
if ((ix | lx) == 0 || ix == 0x7ff00000) /* if x is 0 or inf */
|
|
||||||
b = 0.0;
|
|
||||||
else if (nm1 < x) {
|
|
||||||
if (ix >= 0x52d00000) { /* x > 2**302 */
|
|
||||||
switch(nm1 & 3) {
|
|
||||||
case 0:
|
|
||||||
temp = -cos(x) + sin(x);
|
|
||||||
break;
|
|
||||||
case 1:
|
|
||||||
temp = -cos(x) - sin(x);
|
|
||||||
break;
|
|
||||||
case 2:
|
|
||||||
temp = cos(x) - sin(x);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
temp = cos(x) + sin(x);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
b = invsqrtpi * temp / sqrt(x);
|
|
||||||
} else {
|
|
||||||
a = _j0(x);
|
|
||||||
b = _j1(x);
|
|
||||||
for (i = 0; i < nm1; ) {
|
|
||||||
i++;
|
|
||||||
temp = b;
|
|
||||||
b = b * (2.0 * i / x) - a; /* avoid underflow */
|
|
||||||
a = temp;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
if (ix < 0x3e100000) { /* x < 2**-29 */
|
|
||||||
if (nm1 > 32) /* underflow */
|
|
||||||
b = 0.0;
|
|
||||||
else {
|
|
||||||
temp = x * 0.5;
|
|
||||||
b = temp;
|
|
||||||
a = 1.0;
|
|
||||||
for (i = 2; i <= nm1 + 1; i++) {
|
|
||||||
a *= (double)i; /* a = n! */
|
|
||||||
b *= temp; /* b = (x/2)^n */
|
|
||||||
}
|
|
||||||
b = b / a;
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
double t, q0, q1, w, h, z, tmp, nf;
|
|
||||||
int k;
|
|
||||||
|
|
||||||
nf = nm1 + 1.0;
|
|
||||||
w = 2 * nf / x;
|
|
||||||
h = 2 / x;
|
|
||||||
z = w + h;
|
|
||||||
q0 = w;
|
|
||||||
q1 = w * z - 1.0;
|
|
||||||
k = 1;
|
|
||||||
while (q1 < 1.0e9) {
|
|
||||||
k += 1;
|
|
||||||
z += h;
|
|
||||||
tmp = z * q1 - q0;
|
|
||||||
q0 = q1;
|
|
||||||
q1 = tmp;
|
|
||||||
}
|
|
||||||
for (t = 0.0, i = k; i >= 0; i--)
|
|
||||||
t = 1 / (2 * (i + nf) / x - t);
|
|
||||||
a = t;
|
|
||||||
b = 1.0;
|
|
||||||
tmp = nf * log(fabs(w));
|
|
||||||
if (tmp < 7.09782712893383973096e+02) {
|
|
||||||
for (i = nm1; i > 0; i--) {
|
|
||||||
temp = b;
|
|
||||||
b = b * (2.0 * i) / x - a;
|
|
||||||
a = temp;
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
for (i = nm1; i > 0; i--) {
|
|
||||||
temp = b;
|
|
||||||
b = b * (2.0 * i) / x - a;
|
|
||||||
a = temp;
|
|
||||||
/* scale b to avoid spurious overflow */
|
|
||||||
if (b > 0x1p500) {
|
|
||||||
a /= b;
|
|
||||||
t /= b;
|
|
||||||
b = 1.0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
z = j0(x);
|
|
||||||
w = j1(x);
|
|
||||||
if (fabs(z) >= fabs(w))
|
|
||||||
b = t * z / b;
|
|
||||||
else
|
|
||||||
b = t * w / a;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return sign ? -b : b;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*********************************************************************
|
|
||||||
* _yn (MSVCRT.@)
|
|
||||||
*
|
|
||||||
* Copied from musl: src/math/jn.c
|
|
||||||
*/
|
|
||||||
double CDECL _yn(int n, double x)
|
|
||||||
{
|
|
||||||
static const double invsqrtpi = 5.64189583547756279280e-01;
|
|
||||||
|
|
||||||
unsigned int ix, lx, ib;
|
|
||||||
int nm1, sign, i;
|
|
||||||
double a, b, temp;
|
|
||||||
|
|
||||||
ix = *(ULONGLONG*)&x >> 32;
|
|
||||||
lx = *(ULONGLONG*)&x;
|
|
||||||
sign = ix >> 31;
|
|
||||||
ix &= 0x7fffffff;
|
|
||||||
|
|
||||||
if ((ix | (lx | -lx) >> 31) > 0x7ff00000) /* nan */
|
|
||||||
return x;
|
|
||||||
if (sign && (ix | lx) != 0) /* x < 0 */
|
|
||||||
return math_error(_DOMAIN, "_y1", x, 0, 0 / (x - x));
|
|
||||||
if (ix == 0x7ff00000)
|
|
||||||
return 0.0;
|
|
||||||
|
|
||||||
if (n == 0)
|
|
||||||
return y0(x);
|
|
||||||
if (n < 0) {
|
|
||||||
nm1 = -(n + 1);
|
|
||||||
sign = n & 1;
|
|
||||||
} else {
|
|
||||||
nm1 = n - 1;
|
|
||||||
sign = 0;
|
|
||||||
}
|
|
||||||
if (nm1 == 0)
|
|
||||||
return sign ? -y1(x) : y1(x);
|
|
||||||
|
|
||||||
if (ix >= 0x52d00000) { /* x > 2**302 */
|
|
||||||
switch(nm1 & 3) {
|
|
||||||
case 0:
|
|
||||||
temp = -sin(x) - cos(x);
|
|
||||||
break;
|
|
||||||
case 1:
|
|
||||||
temp = -sin(x) + cos(x);
|
|
||||||
break;
|
|
||||||
case 2:
|
|
||||||
temp = sin(x) + cos(x);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
temp = sin(x) - cos(x);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
b = invsqrtpi * temp / sqrt(x);
|
|
||||||
} else {
|
|
||||||
a = y0(x);
|
|
||||||
b = y1(x);
|
|
||||||
/* quit if b is -inf */
|
|
||||||
ib = *(ULONGLONG*)&b >> 32;
|
|
||||||
for (i = 0; i < nm1 && ib != 0xfff00000;) {
|
|
||||||
i++;
|
|
||||||
temp = b;
|
|
||||||
b = (2.0 * i / x) * b - a;
|
|
||||||
ib = *(ULONGLONG*)&b >> 32;
|
|
||||||
a = temp;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return sign ? -b : b;
|
|
||||||
}
|
|
||||||
|
|
||||||
#if _MSVCR_VER>=120
|
#if _MSVCR_VER>=120
|
||||||
|
|
||||||
/*********************************************************************
|
/*********************************************************************
|
||||||
|
|
|
||||||
|
|
@ -225,7 +225,7 @@ double __cdecl _yn(int n, double x)
|
||||||
if ((ix | (lx|-lx)>>31) > 0x7ff00000) /* nan */
|
if ((ix | (lx|-lx)>>31) > 0x7ff00000) /* nan */
|
||||||
return x;
|
return x;
|
||||||
if (sign && (ix|lx)!=0) /* x < 0 */
|
if (sign && (ix|lx)!=0) /* x < 0 */
|
||||||
return 0/0.0;
|
return math_error(_DOMAIN, "_y1", x, 0, 0 / (x - x));
|
||||||
if (ix == 0x7ff00000)
|
if (ix == 0x7ff00000)
|
||||||
return 0.0;
|
return 0.0;
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue