[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6a53836a245 3/3: * src/fns.c (sxhash_bignum): Include sign bit in
From: |
Mattias Engdegård |
Subject: |
master 6a53836a245 3/3: * src/fns.c (sxhash_bignum): Include sign bit in hash. |
Date: |
Fri, 23 Feb 2024 05:29:34 -0500 (EST) |
branch: master
commit 6a53836a245a8154f1f176ce2a787c24aa7409cb
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
* src/fns.c (sxhash_bignum): Include sign bit in hash.
---
src/fns.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/fns.c b/src/fns.c
index 737757d06cc..550545d1486 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -5193,7 +5193,7 @@ sxhash_bignum (Lisp_Object bignum)
{
mpz_t const *n = xbignum_val (bignum);
size_t i, nlimbs = mpz_size (*n);
- EMACS_UINT hash = 0;
+ EMACS_UINT hash = mpz_sgn(*n) < 0;
for (i = 0; i < nlimbs; ++i)
hash = sxhash_combine (hash, mpz_getlimbn (*n, i));