[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 1780502: Report base of out-of-range input fixnums
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 1780502: Report base of out-of-range input fixnums |
Date: |
Sat, 21 Jul 2018 03:26:16 -0400 (EDT) |
branch: master
commit 1780502da6b9ac8d3063dfd56f675318568283dc
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
Report base of out-of-range input fixnums
* src/lread.c (string_to_number): Report the base of an
out-of-range fixnum. Problem reported by Andy Moreton in:
https://lists.gnu.org/r/emacs-devel/2018-07/msg00696.html
---
src/lread.c | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/lread.c b/src/lread.c
index 4eba863..50fc6ef 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3798,10 +3798,11 @@ string_to_number (char const *string, int base, int
flags)
if (! (state & DOT_CHAR) && ! (flags & S2N_OVERFLOW_TO_FLOAT))
{
- AUTO_STRING (fmt, ("%s is out of fixnum range; "
+ AUTO_STRING (fmt, ("%s (base %d) is out of fixnum range; "
"maybe set `read-integer-overflow-as-float'?"));
AUTO_STRING_WITH_LEN (arg, string, cp - string);
- xsignal1 (Qoverflow_error, CALLN (Fformat_message, fmt, arg));
+ xsignal1 (Qoverflow_error,
+ CALLN (Fformat_message, fmt, arg, make_number (base)));
}
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 1780502: Report base of out-of-range input fixnums,
Paul Eggert <=