projects
/
libm
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
various minor style fixes
[libm]
/
src
/
math
/
scalbnl.c
diff --git
a/src/math/scalbnl.c
b/src/math/scalbnl.c
index
5510186
..
0ed5b7f
100644
(file)
--- a/
src/math/scalbnl.c
+++ b/
src/math/scalbnl.c
@@
-38,11
+38,11
@@
long double scalbnl(long double x, int n)
if (k == 0) { /* 0 or subnormal x */
if ((u.bits.manh|u.bits.manl) == 0) /* +-0 */
return x;
if (k == 0) { /* 0 or subnormal x */
if ((u.bits.manh|u.bits.manl) == 0) /* +-0 */
return x;
- u.e *= 0x1p
+
128;
+ u.e *= 0x1p128;
k = u.bits.exp - 128;
if (n < -50000)
return tiny*x; /*underflow*/
k = u.bits.exp - 128;
if (n < -50000)
return tiny*x; /*underflow*/
-
}
+ }
if (k == 0x7fff) /* NaN or Inf */
return x + x;
k = k + n;
if (k == 0x7fff) /* NaN or Inf */
return x + x;
k = k + n;