diff options
| author | Paul Eggert | 2018-07-31 23:46:57 -0700 |
|---|---|---|
| committer | Paul Eggert | 2018-07-31 23:48:56 -0700 |
| commit | e28a37438d4ba71cd8a053e956686ab29ff97b6a (patch) | |
| tree | 77c7f4cb879dd8da7925531209222e96834dd711 /src/data.c | |
| parent | 1804fece02691798394c9e9bd519cd4a53776018 (diff) | |
| download | emacs-e28a37438d4ba71cd8a053e956686ab29ff97b6a.tar.gz emacs-e28a37438d4ba71cd8a053e956686ab29ff97b6a.zip | |
Simplify by assuming C99 math.h isnan etc.
These should be portable nowadays.
* src/data.c (isnan): Remove.
* src/floatfns.c (isfinite, isnan): Remove.
* src/print.c: Include math.h, for isinf and isnan.
(float_to_string): Simplify by using them.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/data.c b/src/data.c index c8beeda7208..aaccb675183 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -2812,10 +2812,6 @@ arith_driver (enum arithop code, ptrdiff_t nargs, Lisp_Object *args) | |||
| 2812 | return val; | 2812 | return val; |
| 2813 | } | 2813 | } |
| 2814 | 2814 | ||
| 2815 | #ifndef isnan | ||
| 2816 | # define isnan(x) ((x) != (x)) | ||
| 2817 | #endif | ||
| 2818 | |||
| 2819 | static Lisp_Object | 2815 | static Lisp_Object |
| 2820 | float_arith_driver (double accum, ptrdiff_t argnum, enum arithop code, | 2816 | float_arith_driver (double accum, ptrdiff_t argnum, enum arithop code, |
| 2821 | ptrdiff_t nargs, Lisp_Object *args) | 2817 | ptrdiff_t nargs, Lisp_Object *args) |