From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 1 Jan 2019 23:13:22 +0000 (-0800)
Subject: Don’t limit range error reports to fixnums
X-Git-Tag: emacs-27.0.90~3881
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0515b223c2158984e135e84be97c01d5b8d0ae75;p=emacs.git

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.
---

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)
   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 {									\