From 46bb667f203a842e2cc574054487cd05f4ce8977 Mon Sep 17 00:00:00 2001
From: Michael Gran <spk121@yahoo.com>
Date: Sun, 16 Oct 2022 01:24:48 -0700
Subject: [PATCH] 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 af5772892..d7c562959 100644
--- a/libguile/hash.c
+++ b/libguile/hash.c
@@ -301,7 +301,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)));