diff options
Diffstat (limited to 'src/math/scalbn.c')
| -rw-r--r-- | src/math/scalbn.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/math/scalbn.c b/src/math/scalbn.c index bf5b4aae..f01843ce 100644 --- a/src/math/scalbn.c +++ b/src/math/scalbn.c @@ -4,7 +4,17 @@ TYPE TGFN(scalbn)(TYPE x, int n) { - return x - n; + switch (fpclassify(x)) { + case FP_ZERO: return x; + case FP_INFINITE: return x; + default: break; + } + + if (n == 0) { + return x; + } + + return TGFN(ldexp)(x, n); } /* |