Make number-to-string work for bignums

* src/data.c (Fnumber_to_string): Handle bignum.
* test/src/data-tests.el (data-tests-number-to-string): New test.

diff --git a/src/data.c b/src/data.c
index b49daabe85dbb611f51cec435ddcf9df462674fb..18b572de977955af02f37825509d82ba11ea51d7 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -2756,6 +2756,14 @@ NUMBER may be an integer or a floating point number.  */)
   char buffer[max (FLOAT_TO_STRING_BUFSIZE, INT_BUFSIZE_BOUND (EMACS_INT))];
   int len;
 
+  if (BIGNUMP (number))
+    {
+      ptrdiff_t count = SPECPDL_INDEX ();
+      char *str = mpz_get_str (NULL, 10, XBIGNUM (number)->value);
+      record_unwind_protect_ptr (xfree, str);
+      return unbind_to (count, make_unibyte_string (str, strlen (str)));
+    }
+
   CHECK_FIXNUM_OR_FLOAT (number);
 
   if (FLOATP (number))

diff --git a/test/src/data-tests.el b/test/src/data-tests.el
index 543bb90f73ffb23da4f1227f553098c045845706..1143028a1260b93105b4420b8b4fe6ef0997c353 100644 (file)
--- a/test/src/data-tests.el
+++ b/test/src/data-tests.el
@@ -574,4 +574,9 @@ comparing the subr with a much slower lisp implementation."
   (should-not (fixnump (+ most-positive-fixnum 1)))
   (should (bignump (+ most-positive-fixnum 1))))
 
+(ert-deftest data-tests-number-to-string ()
+  (let* ((s "99999999999999999999999999999")
+         (v (read s)))
+    (should (equal (number-to-string v) s))))
+
 ;;; data-tests.el ends here