Commit 0515b223 authored by Paul Eggert's avatar Paul Eggert
Browse files

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.
parent 8b5f05e9
Pipeline #427 failed with stage
in 23 minutes and 48 seconds
......@@ -2841,12 +2841,7 @@ CHECK_FIXNAT (Lisp_Object x)
do { \
CHECK_FIXNUM (x); \
if (! ((lo) <= XFIXNUM (x) && XFIXNUM (x) <= (hi))) \
args_out_of_range_3 \
(x, \
make_fixnum ((lo) < 0 && (lo) < MOST_NEGATIVE_FIXNUM \
? MOST_NEGATIVE_FIXNUM \
: (lo)), \
make_fixnum (min (hi, MOST_POSITIVE_FIXNUM))); \
args_out_of_range_3 (x, INT_TO_INTEGER (lo), INT_TO_INTEGER (hi)); \
} while (false)
#define CHECK_TYPE_RANGED_INTEGER(type, x) \
do { \
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment