[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] branch wip-mingw updated: MinGW 64: fixes hash out-of-ra
From: |
Mike Gran |
Subject: |
[Guile-commits] branch wip-mingw updated: MinGW 64: fixes hash out-of-range error for 64-bit negative numbers |
Date: |
Sun, 16 Oct 2022 04:25:10 -0400 |
This is an automated email from the git hooks/post-receive script.
mike121 pushed a commit to branch wip-mingw
in repository guile.
The following commit(s) were added to refs/heads/wip-mingw by this push:
new fd24c44b4 MinGW 64: fixes hash out-of-range error for 64-bit negative
numbers
fd24c44b4 is described below
commit fd24c44b4b80223cb9876587ba3c5ee5b1ecf44f
Author: Michael Gran <spk121@yahoo.com>
AuthorDate: Sun Oct 16 01:24:48 2022 -0700
MinGW 64: fixes hash out-of-range error for 64-bit negative numbers
* libguile/hash.c (scm_raw_ihash): modified
---
libguile/hash.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/libguile/hash.c b/libguile/hash.c
index caf7f2b3c..e72944dc7 100644
--- a/libguile/hash.c
+++ b/libguile/hash.c
@@ -304,7 +304,7 @@ scm_raw_ihash (SCM obj, size_t depth)
SCM n = SCM_I_MAKINUM (SCM_MOST_POSITIVE_FIXNUM);
if (scm_is_inexact (obj))
obj = scm_inexact_to_exact (obj);
- return scm_raw_ihashq (scm_to_ulong (scm_modulo (obj, n)));
+ return scm_raw_ihashq (scm_to_uintptr_t (scm_modulo (obj, n)));
}
else
return scm_i_string_hash (scm_number_to_string (obj, scm_from_int
(10)));
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] branch wip-mingw updated: MinGW 64: fixes hash out-of-range error for 64-bit negative numbers,
Mike Gran <=