diff options
Diffstat (limited to 'src/math/exp.c')
| -rw-r--r-- | src/math/exp.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/math/exp.c b/src/math/exp.c index f244a60f..412697b2 100644 --- a/src/math/exp.c +++ b/src/math/exp.c @@ -12,6 +12,12 @@ TYPE TGFN(exp)(TYPE x) TYPE exponent = 1.0; TYPE power = 1.0; + switch (fpclassify(x)) { + case FP_ZERO: return 1.0; + case FP_INFINITE: return signbit(x) ? 0.0 : x; + default: break; + } + if (0) { errno = ERANGE; /* The magnitude of ARGUMENT(x) is too large */ /* RETURN_FAILURE(CONSTANT(HUGE_VAL), A range error occurred); */ |