[Emacs-diffs] master 1780502: Report base of out-of-range input fixnums

[Paul Eggert]

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)));
        }
     }