diff options
| author | Paul Eggert | 2018-09-11 11:21:11 -0700 |
|---|---|---|
| committer | Paul Eggert | 2018-09-11 11:34:43 -0700 |
| commit | fa3785ea5fd73eaba84b8e3b8f988dd53f3a4148 (patch) | |
| tree | 3b37f928b5c5b80a92e467f2b49c333e05cf7b3b /src/lisp.h | |
| parent | 94297848332f01a18b5a6a7d29f46d03dcd881ec (diff) | |
| download | emacs-fa3785ea5fd73eaba84b8e3b8f988dd53f3a4148.tar.gz emacs-fa3785ea5fd73eaba84b8e3b8f988dd53f3a4148.zip | |
Use overflow-error for bignum overflow
This better corresponds to what emacs-26 did in the
rare cases where it checked for integer overflow.
* src/alloc.c (range_error): Remove.
All uses changed to overflow_error.
* src/eval.c (overflow_error): New function.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp.h b/src/lisp.h index 454d728f9e0..bb190b691b0 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -3751,7 +3751,6 @@ extern void display_malloc_warning (void); | |||
| 3751 | extern ptrdiff_t inhibit_garbage_collection (void); | 3751 | extern ptrdiff_t inhibit_garbage_collection (void); |
| 3752 | extern Lisp_Object build_overlay (Lisp_Object, Lisp_Object, Lisp_Object); | 3752 | extern Lisp_Object build_overlay (Lisp_Object, Lisp_Object, Lisp_Object); |
| 3753 | extern void free_cons (struct Lisp_Cons *); | 3753 | extern void free_cons (struct Lisp_Cons *); |
| 3754 | extern _Noreturn void range_error (void); | ||
| 3755 | extern void init_alloc_once (void); | 3754 | extern void init_alloc_once (void); |
| 3756 | extern void init_alloc (void); | 3755 | extern void init_alloc (void); |
| 3757 | extern void syms_of_alloc (void); | 3756 | extern void syms_of_alloc (void); |
| @@ -3888,6 +3887,7 @@ extern _Noreturn void xsignal2 (Lisp_Object, Lisp_Object, Lisp_Object); | |||
| 3888 | extern _Noreturn void xsignal3 (Lisp_Object, Lisp_Object, Lisp_Object, | 3887 | extern _Noreturn void xsignal3 (Lisp_Object, Lisp_Object, Lisp_Object, |
| 3889 | Lisp_Object); | 3888 | Lisp_Object); |
| 3890 | extern _Noreturn void signal_error (const char *, Lisp_Object); | 3889 | extern _Noreturn void signal_error (const char *, Lisp_Object); |
| 3890 | extern _Noreturn void overflow_error (void); | ||
| 3891 | extern bool FUNCTIONP (Lisp_Object); | 3891 | extern bool FUNCTIONP (Lisp_Object); |
| 3892 | extern Lisp_Object funcall_subr (struct Lisp_Subr *subr, ptrdiff_t numargs, Lisp_Object *arg_vector); | 3892 | extern Lisp_Object funcall_subr (struct Lisp_Subr *subr, ptrdiff_t numargs, Lisp_Object *arg_vector); |
| 3893 | extern Lisp_Object eval_sub (Lisp_Object form); | 3893 | extern Lisp_Object eval_sub (Lisp_Object form); |