Chez Scheme: unbreak eq? hash on 32-bit platforms

2020-11-22 13:06:08 -07:00 · 2020-11-22 13:06:08 -07:00 · 3ccb523f1a
commit 3ccb523f1a
parent 4b39dc73be
1 changed files with 2 additions and 1 deletions
--- a/racket/src/ChezScheme/c/segment.h
+++ b/racket/src/ChezScheme/c/segment.h
@ -87,7 +87,8 @@ FORCEINLINE seginfo *MaybeSegInfo(uptr i) {

 /* Must be consistent with `eq-hash` in "../s/library.ss" */
 FORCEINLINE uptr eq_hash(ptr key) {
-  uptr x = (uptr)key >> primary_type_bits;
+  uptr x = (uptr)((iptr)key >> (primary_type_bits - fixnum_offset));
+  x = x >> fixnum_offset; /* unsigned shift */
 #if (ptr_bits == 64)
  uptr x1 = x ^ ((x >> 32) & (uptr)0xFFFFFFFF);
 #else