[Guile-commits] 02/03: Fix bug when making mpz from 0

[Andy Wingo]

wingo pushed a commit to branch wip-inline-digits
in repository guile.

commit 689ee7395759b893eabee70aa9aa7bd3ace28949
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Fri Jan 7 22:15:23 2022 +0100

    Fix bug when making mpz from 0
    
    * libguile/integers.c (make_bignum_0): New helper.
    (make_bignum_from_uint64):
    (ulong_to_bignum):
    (long_to_bignum): Call new helper as appropriate.
---
 libguile/integers.c | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/libguile/integers.c b/libguile/integers.c
index c7a6e17f8..cc8c2f4fc 100644
--- a/libguile/integers.c
+++ b/libguile/integers.c
@@ -174,6 +174,12 @@ negate_bignum (struct scm_bignum *z)
   return z;
 }
 
+static struct scm_bignum *
+make_bignum_0 (void)
+{
+  return allocate_bignum (0);
+}
+
 static struct scm_bignum *
 make_bignum_1 (int is_negative, mp_limb_t limb)
 {
@@ -200,7 +206,7 @@ make_bignum_from_uint64 (uint64_t val)
   if (val > UINT32_MAX)
     return make_bignum_2 (0, val, val >> 32);
 #endif
-  return make_bignum_1 (0, val);
+  return val == 0 ? make_bignum_0 () : make_bignum_1 (0, val);
 }
 
 static struct scm_bignum *
@@ -214,7 +220,7 @@ make_bignum_from_int64 (int64_t val)
 static struct scm_bignum *
 ulong_to_bignum (unsigned long u)
 {
-  return make_bignum_1 (0, u);
+  return u == 0 ? make_bignum_0 () : make_bignum_1 (0, u);
 };
 
 static struct scm_bignum *
@@ -223,7 +229,7 @@ long_to_bignum (long i)
   if (i > 0)
     return ulong_to_bignum (i);
 
-  return make_bignum_1 (1, long_magnitude (i));
+  return i == 0 ? make_bignum_0 () : make_bignum_1 (1, long_magnitude (i));
 };
 
 static inline SCM