diff options
| author | David N. Welton <[email protected]> | 2014-12-15 17:53:09 +0100 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2015-03-19 11:22:37 +0100 |
| commit | 372d62d4e1738431d33c1318be1ee4305c74649d (patch) | |
| tree | b193b74946f5430acd73ec40b3e3288bfa485793 /lib/erl_interface/src/encode/encode_double.c | |
| parent | 243dc2ff02e3be0af2a2f1aadf7e53f09b4bdbc7 (diff) | |
| download | otp-372d62d4e1738431d33c1318be1ee4305c74649d.tar.gz otp-372d62d4e1738431d33c1318be1ee4305c74649d.tar.bz2 otp-372d62d4e1738431d33c1318be1ee4305c74649d.zip | |
Do not accept Nan and Infinity values
Erlang does not accept these values, so we return an error in the C
interface rather than letting them through to the Erlang VM, which
rejects the message with a somewhat cryptic "bad external term".
Diffstat (limited to 'lib/erl_interface/src/encode/encode_double.c')
| -rw-r--r-- | lib/erl_interface/src/encode/encode_double.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/erl_interface/src/encode/encode_double.c b/lib/erl_interface/src/encode/encode_double.c index 148a49f73a..a19a871eda 100644 --- a/lib/erl_interface/src/encode/encode_double.c +++ b/lib/erl_interface/src/encode/encode_double.c @@ -18,6 +18,9 @@ */ #include <stdio.h> #include <string.h> +#if defined(HAVE_ISFINITE) +#include <math.h> +#endif #include "eidef.h" #include "eiext.h" #include "putget.h" @@ -27,6 +30,15 @@ int ei_encode_double(char *buf, int *index, double p) char *s = buf + *index; char *s0 = s; + /* Erlang does not handle Inf and NaN, so we return an error rather + * than letting the Erlang VM complain about a bad external + * term. */ +#if defined(HAVE_ISFINITE) + if(!isfinite(p)) { + return -1; + } +#endif + if (!buf) s += 9; else { |