aboutsummaryrefslogtreecommitdiffstats
path: root/src/process.c
diff options
context:
space:
mode:
authorPaul Eggert2018-03-29 10:16:29 -0700
committerPaul Eggert2018-03-29 11:03:07 -0700
commit6b3d01dad415230ad0bd0d01a05351d7a8b0e8c3 (patch)
treed49bf4520d6afc830aa9d016be3d57349b251c4f /src/process.c
parent3409fe0362c52127c52f854a7300f4dde4b8fffe (diff)
downloademacs-6b3d01dad415230ad0bd0d01a05351d7a8b0e8c3.tar.gz
emacs-6b3d01dad415230ad0bd0d01a05351d7a8b0e8c3.zip
Lisp reader now checks for integer overflow
* doc/lispref/numbers.texi (Integer Basics), etc/NEWS: Document this. * src/lisp.h (S2N_IGNORE_TRAILING, S2N_OVERFLOW_TO_FLOAT): New constants. * src/lread.c (string_to_number): Change trailing bool arg to integer argument with flags, to support S2N_OVERFLOW_TO_FLOAT. All uses changed. * test/src/editfns-tests.el (read-large-integer): New test.
Diffstat (limited to 'src/process.c')
-rw-r--r--src/process.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/process.c b/src/process.c
index 2aaa238f60c..ed2cab7b51f 100644
--- a/src/process.c
+++ b/src/process.c
@@ -6842,7 +6842,7 @@ SIGCODE may be an integer, or a symbol whose name is a signal name. */)
6842 { 6842 {
6843 Lisp_Object tem = Fget_process (process); 6843 Lisp_Object tem = Fget_process (process);
6844 if (NILP (tem)) 6844 if (NILP (tem))
6845 tem = string_to_number (SSDATA (process), 10, true); 6845 tem = string_to_number (SSDATA (process), 10, S2N_OVERFLOW_TO_FLOAT);
6846 process = tem; 6846 process = tem;
6847 } 6847 }
6848 else if (!NUMBERP (process)) 6848 else if (!NUMBERP (process))