summaryrefslogtreecommitdiff
path: root/src/math/sinh.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/math/sinh.c')
-rw-r--r--src/math/sinh.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/math/sinh.c b/src/math/sinh.c
index e5942de6..2e8d498c 100644
--- a/src/math/sinh.c
+++ b/src/math/sinh.c
@@ -6,6 +6,12 @@
/** hyperbolic sine **/
TYPE TGFN(sinh)(TYPE x)
{
+ switch (fpclassify(x)) {
+ case FP_ZERO: return x;
+ case FP_INFINITE: return x;
+ default: break;
+ }
+
if (0) {
errno = ERANGE; /* The magnitude of ARGUMENT(x) is too large */
/* RETURN_FAILURE(CONSTANT(HUGE_VAL), A range error occurred); */