pyrite-dev/milsko
pyrite-dev/milsko
12
1
Fork 3
Code Issues 4 Pull requests Projects Releases 10 Packages Wiki Activity Actions

fix

Browse source 
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@555 b9cfdab3-6d41-4d17-bbe4-086880011989
This commit is contained in:
Nishi 2025-11-01 08:43:00 +00:00
commit 14be6d3bca
11 changed files with 126 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/math/nbsd_pow.c
View file

@ -133,7 +133,7 @@ nbsd_pow(double x, double y) {
k = (iy >> 20) - 0x3ff; /* exponent */
if(k > 20) {
j = ly >> (52 - k);
if((uint32_t)(j << (52 - k)) == ly) yisint = 2 - (j & 1);
if((MwU32)(j << (52 - k)) == ly) yisint = 2 - (j & 1);
} else if(ly == 0) {
j = iy >> (20 - k);
if((j << (20 - k)) == iy) yisint = 2 - (j & 1);
@ -314,7 +314,7 @@ nbsd_pow(double x, double y) {
z = one - (r - z);
GET_HIGH_WORD(j, z);
j += (n << 20);
if((j >> 20) <= 0) z = scalbn(z, n); /* subnormal output */
if((j >> 20) <= 0) z = nbsd_scalbn(z, n); /* subnormal output */
else
SET_HIGH_WORD(z, j);
return s * z;