From cca0e79ea81712786f92a6668c61001e60d24f32 Mon Sep 17 00:00:00 2001
From: Tom Tromey <tom@tromey.com>
Date: Sun, 8 Jul 2018 00:10:54 -0600
Subject: Make logb handle bignums

* src/floatfns.c (Flogb): Handle bignums.
* test/src/floatfns-tests.el (bignum-logb): New test.
---
 src/floatfns.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/floatfns.c')

diff --git a/src/floatfns.c b/src/floatfns.c
index 6d7fc1452d3..9a5f0a3ad2f 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -328,7 +328,7 @@ This is the same as the exponent of a float.  */)
   (Lisp_Object arg)
 {
   EMACS_INT value;
-  CHECK_FIXNUM_OR_FLOAT (arg);
+  CHECK_NUMBER (arg);
 
   if (FLOATP (arg))
     {
@@ -345,8 +345,11 @@ This is the same as the exponent of a float.  */)
       else
 	value = MOST_POSITIVE_FIXNUM;
     }
+  else if (BIGNUMP (arg))
+    value = mpz_sizeinbase (XBIGNUM (arg)->value, 2) - 1;
   else
     {
+      eassert (FIXNUMP (arg));
       EMACS_INT i = eabs (XINT (arg));
       value = (i == 0
 	       ? MOST_NEGATIVE_FIXNUM
-- 
cgit v1.2.3