aboutsummaryrefslogtreecommitdiffstats
path: root/lib/erl_interface/src/legacy/erl_eterm.c
diff options
context:
space:
mode:
authorBjörn-Egil Dahlberg <[email protected]>2015-06-02 14:39:30 +0200
committerBjörn-Egil Dahlberg <[email protected]>2015-06-02 14:39:30 +0200
commit5a5e2b781a544883f29b5c46fbbc38a198f70f23 (patch)
treefb362c5fd2e0e47ea78fb2ec240c12be075455df /lib/erl_interface/src/legacy/erl_eterm.c
parent1c77269abc1a4772c8123470e93e1cd38f316e2f (diff)
downloadotp-5a5e2b781a544883f29b5c46fbbc38a198f70f23.tar.gz
otp-5a5e2b781a544883f29b5c46fbbc38a198f70f23.tar.bz2
otp-5a5e2b781a544883f29b5c46fbbc38a198f70f23.zip
erl_interface: Use isfinite instead of fpclassify
Diffstat (limited to 'lib/erl_interface/src/legacy/erl_eterm.c')
-rw-r--r--lib/erl_interface/src/legacy/erl_eterm.c6
1 files changed, 2 insertions, 4 deletions
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);