From 5a5e2b781a544883f29b5c46fbbc38a198f70f23 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn-Egil=20Dahlberg?= <egil@erlang.org>
Date: Tue, 2 Jun 2015 14:39:30 +0200
Subject: erl_interface: Use isfinite instead of fpclassify

---
 lib/erl_interface/src/legacy/erl_eterm.c | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'lib/erl_interface')

diff --git a/lib/erl_interface/src/legacy/erl_eterm.c b/lib/erl_interface/src/legacy/erl_eterm.c
index c167fd1f78..060e311f69 100644
--- a/lib/erl_interface/src/legacy/erl_eterm.c
+++ b/lib/erl_interface/src/legacy/erl_eterm.c
@@ -129,10 +129,8 @@ ETERM *erl_mk_float (double d)
     /* Erlang does not handle Inf and NaN, so we return an error
      * rather than letting the Erlang VM complain about a bad external
      * term. */
-    switch(fpclassify(d)) {
-        case FP_NAN:
-        case FP_INFINITE:
-            return NULL;
+    if(!isfinite(d)) {
+        return NULL;
     }
 
     ep = erl_alloc_eterm(ERL_FLOAT);
-- 
cgit v1.2.3