[Guile-commits] branch wip-mingw updated: MinGW 64: fixes hash out-of-range error for 64-bit negative numbers

[Mike Gran via Guile-commits]

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 <spk...@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)));