aboutsummaryrefslogtreecommitdiffstats
path: root/src/lisp.h
diff options
context:
space:
mode:
authorPaul Eggert2018-09-11 11:21:11 -0700
committerPaul Eggert2018-09-11 11:34:43 -0700
commitfa3785ea5fd73eaba84b8e3b8f988dd53f3a4148 (patch)
tree3b37f928b5c5b80a92e467f2b49c333e05cf7b3b /src/lisp.h
parent94297848332f01a18b5a6a7d29f46d03dcd881ec (diff)
downloademacs-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.h2
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);
3751extern ptrdiff_t inhibit_garbage_collection (void); 3751extern ptrdiff_t inhibit_garbage_collection (void);
3752extern Lisp_Object build_overlay (Lisp_Object, Lisp_Object, Lisp_Object); 3752extern Lisp_Object build_overlay (Lisp_Object, Lisp_Object, Lisp_Object);
3753extern void free_cons (struct Lisp_Cons *); 3753extern void free_cons (struct Lisp_Cons *);
3754extern _Noreturn void range_error (void);
3755extern void init_alloc_once (void); 3754extern void init_alloc_once (void);
3756extern void init_alloc (void); 3755extern void init_alloc (void);
3757extern void syms_of_alloc (void); 3756extern void syms_of_alloc (void);
@@ -3888,6 +3887,7 @@ extern _Noreturn void xsignal2 (Lisp_Object, Lisp_Object, Lisp_Object);
3888extern _Noreturn void xsignal3 (Lisp_Object, Lisp_Object, Lisp_Object, 3887extern _Noreturn void xsignal3 (Lisp_Object, Lisp_Object, Lisp_Object,
3889 Lisp_Object); 3888 Lisp_Object);
3890extern _Noreturn void signal_error (const char *, Lisp_Object); 3889extern _Noreturn void signal_error (const char *, Lisp_Object);
3890extern _Noreturn void overflow_error (void);
3891extern bool FUNCTIONP (Lisp_Object); 3891extern bool FUNCTIONP (Lisp_Object);
3892extern Lisp_Object funcall_subr (struct Lisp_Subr *subr, ptrdiff_t numargs, Lisp_Object *arg_vector); 3892extern Lisp_Object funcall_subr (struct Lisp_Subr *subr, ptrdiff_t numargs, Lisp_Object *arg_vector);
3893extern Lisp_Object eval_sub (Lisp_Object form); 3893extern Lisp_Object eval_sub (Lisp_Object form);