niansa-misc/musl
1
0
Fork 0
mirror of git://git.musl-libc.org/musl synced 2025-03-06 20:48:29 +01:00
Code Issues Projects Releases Packages Wiki Activity

math: simplify hypot and hypotf using scalbn

Browse source 
this also fixes overflow/underflow raising and excess
precision issues (as those are handled well in scalbn)
This commit is contained in:
Szabolcs Nagy 2012-11-13 21:54:32 +01:00
parent 6d3f1a39c1
commit 529a8de46c
2 changed files with 4 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/math/hypot.c
View file

@ -117,12 +117,7 @@ double hypot(double x, double y)
t2 = a - t1;
w = sqrt(t1*y1-(w*(-w)-(t1*y2+t2*b)));
}
if (k != 0) {
uint32_t high;
t1 = 1.0;
GET_HIGH_WORD(high, t1);
SET_HIGH_WORD(t1, high+(k<<20));
return t1*w;
}
if (k)
w = scalbn(w, k);
return w;
}

6
src/math/hypotf.c
View file

@ -80,9 +80,7 @@ float hypotf(float x, float y)
t2 = a - t1;
w = sqrtf(t1*y1-(w*(-w)-(t1*y2+t2*b)));
}
if (k != 0) {
SET_FLOAT_WORD(t1, 0x3f800000+(k<<23));
return t1*w;
}
if (k)
w = scalbnf(w, k);
return w;
}