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/llrint.c | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'src/math/llrint.c') diff --git a/src/math/llrint.c b/src/math/llrint.c index a967f651..299a8258 100644 --- a/src/math/llrint.c +++ b/src/math/llrint.c @@ -1,9 +1,23 @@ # define TGSOURCE "llrint.c" #include "_tgmath.h" #include +#include "limits.h" +#include "fenv.h" long long int TGFN(llrint)(TYPE x) { + switch (fpclassify(x)) { + case FP_ZERO: + return 0; + + case FP_INFINITE: + feraiseexcept(FE_INVALID); + return signbit(x) ? LLONG_MIN : LLONG_MAX; + + default: + break; + } + return x; } -- cgit v1.2.1