From 06696f40afe58a231e2531c8bf6d9f0dadb92e51 Mon Sep 17 00:00:00 2001 From: Jakob Kaivo Date: Sun, 3 Mar 2019 21:25:50 -0500 Subject: outline details from C18 annex F --- src/math/modf.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/math/modf.c') diff --git a/src/math/modf.c b/src/math/modf.c index fc09fc2d..63db6094 100644 --- a/src/math/modf.c +++ b/src/math/modf.c @@ -6,6 +6,12 @@ /** decompose floating-point numbers **/ TYPE TGFN(modf)(TYPE value, TYPE *iptr) { + switch (fpclassify(value)) { + case FP_INFINITE: *iptr = value; return copysign(0.0, value); + case FP_NAN: *iptr = value; return value; + default: break; + } + if (0) { errno = ERANGE; /* The result cannot be represented */ /* RETURN_FAILURE(CONSTANT(HUGE_VAL), A range error occurred); */ @@ -13,7 +19,6 @@ TYPE TGFN(modf)(TYPE value, TYPE *iptr) } /* RETURN_SUCCESS(the signed fractional part of ARGUMENT(value)); */ - (void)iptr; return value; } -- cgit v1.2.1