projects
/
musl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use libc-internal malloc for pthread_atfork
[musl]
/
src
/
math
/
ilogb.c
diff --git
a/src/math/ilogb.c
b/src/math/ilogb.c
index
0a3a6a4
..
64d4015
100644
(file)
--- a/
src/math/ilogb.c
+++ b/
src/math/ilogb.c
@@
-3,18
+3,24
@@
int ilogb(double x)
{
int ilogb(double x)
{
- union dshape u = {x};
- int e = u.bits>>52 & 0x7ff;
+ #pragma STDC FENV_ACCESS ON
+ union {double f; uint64_t i;} u = {x};
+ uint64_t i = u.i;
+ int e = i>>52 & 0x7ff;
if (!e) {
if (!e) {
- u.bits <<= 12;
- if (u.bits == 0)
+ i <<= 12;
+ if (i == 0) {
+ FORCE_EVAL(0/0.0f);
return FP_ILOGB0;
return FP_ILOGB0;
+ }
/* subnormal x */
/* subnormal x */
- for (e = -0x3ff;
u.bits < (uint64_t)1<<63; e--, u.bits
<<=1);
+ for (e = -0x3ff;
i>>63 == 0; e--, i
<<=1);
return e;
}
return e;
}
- if (e == 0x7ff)
- return u.bits<<12 ? FP_ILOGBNAN : INT_MAX;
+ if (e == 0x7ff) {
+ FORCE_EVAL(0/0.0f);
+ return i<<12 ? FP_ILOGBNAN : INT_MAX;
+ }
return e - 0x3ff;
}
return e - 0x3ff;
}