diff options
| author | Tom Tromey | 2018-07-07 15:32:52 -0600 |
|---|---|---|
| committer | Tom Tromey | 2018-07-12 22:12:27 -0600 |
| commit | 1e8ae6ca237e22e11b3db63a01e558ad5a3d6ef3 (patch) | |
| tree | a8fabadc647288ce253d2813b8074c5b903b52b8 /src/data.c | |
| parent | 580d173b9a7db78f6d62972ef8e943d31dde5c9d (diff) | |
| download | emacs-1e8ae6ca237e22e11b3db63a01e558ad5a3d6ef3.tar.gz emacs-1e8ae6ca237e22e11b3db63a01e558ad5a3d6ef3.zip | |
Make the reader accept bignums
* src/data.c (Fstring_to_number): Update.
* src/lisp.h (S2N_OVERFLOW_TO_FLOAT): Remove.
* src/lread.c (free_contents): New function.
(read_integer): Handle bignums.
(read1): Update.
(string_to_number): Handle bignums.
(syms_of_lread): Remove read-integer-overflow-as-float.
* src/process.c (Fsignal_process): Update.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index efcffbbf6ab..8ffed8bbb52 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -2727,8 +2727,7 @@ If the base used is not 10, STRING is always parsed as an integer. */) | |||
| 2727 | while (*p == ' ' || *p == '\t') | 2727 | while (*p == ' ' || *p == '\t') |
| 2728 | p++; | 2728 | p++; |
| 2729 | 2729 | ||
| 2730 | int flags = S2N_IGNORE_TRAILING | S2N_OVERFLOW_TO_FLOAT; | 2730 | Lisp_Object val = string_to_number (p, b, S2N_IGNORE_TRAILING); |
| 2731 | Lisp_Object val = string_to_number (p, b, flags); | ||
| 2732 | return NILP (val) ? make_fixnum (0) : val; | 2731 | return NILP (val) ? make_fixnum (0) : val; |
| 2733 | } | 2732 | } |
| 2734 | 2733 | ||