diff options
| author | Paul Eggert | 2019-01-01 15:13:22 -0800 |
|---|---|---|
| committer | Paul Eggert | 2019-01-01 15:13:45 -0800 |
| commit | 0515b223c2158984e135e84be97c01d5b8d0ae75 (patch) | |
| tree | 08e04dfa53789f466d643d8bb0d81ec115873cec | |
| parent | 8b5f05e93871a6a6f853b3f0807eb0a3660f5f5e (diff) | |
| download | emacs-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.
| -rw-r--r-- | src/lisp.h | 7 |
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 { \ |