Fcalva/OpenLibm
1
0
Fork 0
mirror of https://git.planet-casio.com/Lephenixnoir/OpenLibm.git synced 2025-07-11 14:57:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

updates to s_round.c from FreeBSD

Browse source
This commit is contained in:
Jeff Bezanson 2013-12-19 17:52:23 -05:00
parent 3566e32d84
commit 9ca11f20c6
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/s_round.c
View file

@ -34,19 +34,21 @@ DLLEXPORT double
round(double x) round(double x)
{ {
double t; double t;
uint32_t hx;
if (!isfinite(x)) GET_HIGH_WORD(hx, x);
return (x); if ((hx & 0x7fffffff) == 0x7ff00000)
return (x + x);
if (x >= 0.0) { if (!(hx & 0x80000000)) {
t = floor(x); t = floor(x);
if (t - x <= -0.5) if (t - x <= -0.5)
t += 1.0; t += 1;
return (t); return (t);
} else { } else {
t = floor(-x); t = floor(-x);
if (t + x <= -0.5) if (t + x <= -0.5)
t += 1.0; t += 1;
return (-t); return (-t);
} }
} }