aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorPaul Eggert2019-01-01 15:13:22 -0800
committerPaul Eggert2019-01-01 15:13:45 -0800
commit0515b223c2158984e135e84be97c01d5b8d0ae75 (patch)
tree08e04dfa53789f466d643d8bb0d81ec115873cec /src
parent8b5f05e93871a6a6f853b3f0807eb0a3660f5f5e (diff)
downloademacs-0515b223c2158984e135e84be97c01d5b8d0ae75.tar.gz
emacs-0515b223c2158984e135e84be97c01d5b8d0ae75.zip
Don’t limit range error reports to fixnums
* src/lisp.h (CHECK_RANGED_INTEGER): When signaling an error, don’t arbitrarily limit the reported valid range to fixnums.
Diffstat (limited to 'src')
-rw-r--r--src/lisp.h7
1 files changed, 1 insertions, 6 deletions
diff --git a/src/lisp.h b/src/lisp.h
index 14a61d3f102..dce61c165cf 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2841,12 +2841,7 @@ CHECK_FIXNAT (Lisp_Object x)
2841 do { \ 2841 do { \
2842 CHECK_FIXNUM (x); \ 2842 CHECK_FIXNUM (x); \
2843 if (! ((lo) <= XFIXNUM (x) && XFIXNUM (x) <= (hi))) \ 2843 if (! ((lo) <= XFIXNUM (x) && XFIXNUM (x) <= (hi))) \
2844 args_out_of_range_3 \ 2844 args_out_of_range_3 (x, INT_TO_INTEGER (lo), INT_TO_INTEGER (hi)); \
2845 (x, \
2846 make_fixnum ((lo) < 0 && (lo) < MOST_NEGATIVE_FIXNUM \
2847 ? MOST_NEGATIVE_FIXNUM \
2848 : (lo)), \
2849 make_fixnum (min (hi, MOST_POSITIVE_FIXNUM))); \
2850 } while (false) 2845 } while (false)
2851#define CHECK_TYPE_RANGED_INTEGER(type, x) \ 2846#define CHECK_TYPE_RANGED_INTEGER(type, x) \
2852 do { \ 2847 do { \