mirrors/musl
1
0
Fork 0
mirror of https://git.musl-libc.org/git/musl synced 2025-01-23 22:52:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

math: minor scalbn*.c simplification

Browse Source
This commit is contained in:
Szabolcs Nagy 2013-08-15 10:07:46 +00:00
parent 56b57f37a4
commit 1b77b9072f
3 changed files with 10 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/math/scalbn.c
View File

@ -10,10 +10,8 @@ double scalbn(double x, int n)
if (n > 1023) { if (n > 1023) {
x *= 0x1p1023; x *= 0x1p1023;
n -= 1023; n -= 1023;
if (n > 1023) { if (n > 1023)
STRICT_ASSIGN(double, x, x * 0x1p1023); n = 1023;
return x;
}
} }
} else if (n < -1022) { } else if (n < -1022) {
x *= 0x1p-1022; x *= 0x1p-1022;
@ -21,10 +19,8 @@ double scalbn(double x, int n)
if (n < -1022) { if (n < -1022) {
x *= 0x1p-1022; x *= 0x1p-1022;
n += 1022; n += 1022;
if (n < -1022) { if (n < -1022)
STRICT_ASSIGN(double, x, x * 0x1p-1022); n = -1022;
return x;
}
} }
} }
INSERT_WORDS(scale, (uint32_t)(0x3ff+n)<<20, 0); INSERT_WORDS(scale, (uint32_t)(0x3ff+n)<<20, 0);

12
src/math/scalbnf.c
View File

@ -10,10 +10,8 @@ float scalbnf(float x, int n)
if (n > 127) { if (n > 127) {
x *= 0x1p127f; x *= 0x1p127f;
n -= 127; n -= 127;
if (n > 127) { if (n > 127)
STRICT_ASSIGN(float, x, x * 0x1p127f); n = 127;
return x;
}
} }
} else if (n < -126) { } else if (n < -126) {
x *= 0x1p-126f; x *= 0x1p-126f;
@ -21,10 +19,8 @@ float scalbnf(float x, int n)
if (n < -126) { if (n < -126) {
x *= 0x1p-126f; x *= 0x1p-126f;
n += 126; n += 126;
if (n < -126) { if (n < -126)
STRICT_ASSIGN(float, x, x * 0x1p-126f); n = -126;
return x;
}
} }
} }
SET_FLOAT_WORD(scale, (uint32_t)(0x7f+n)<<23); SET_FLOAT_WORD(scale, (uint32_t)(0x7f+n)<<23);

4
src/math/scalbnl.c
View File

@ -17,7 +17,7 @@ long double scalbnl(long double x, int n)
x *= 0x1p16383L; x *= 0x1p16383L;
n -= 16383; n -= 16383;
if (n > 16383) if (n > 16383)
return x * 0x1p16383L; n = 16383;
} }
} else if (n < -16382) { } else if (n < -16382) {
x *= 0x1p-16382L; x *= 0x1p-16382L;
@ -26,7 +26,7 @@ long double scalbnl(long double x, int n)
x *= 0x1p-16382L; x *= 0x1p-16382L;
n += 16382; n += 16382;
if (n < -16382) if (n < -16382)
return x * 0x1p-16382L; n = -16382;
} }
} }
scale.e = 1.0; scale.e = 1.0;