From 2109b26c1500add4cb69c788885fefdd282ff38c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 15 May 2016 21:06:23 -0600 Subject: [PATCH] repair for hash-table adjustment Fix 49fd1e41da for some compilers. --- racket/src/racket/src/hash.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/racket/src/hash.c b/racket/src/racket/src/hash.c index 6745de06a4..f1f0d1841a 100644 --- a/racket/src/racket/src/hash.c +++ b/racket/src/racket/src/hash.c @@ -2425,8 +2425,8 @@ intptr_t scheme_eqv_hash_key2(Scheme_Object *o) | (((h) & HIGH_LOW_PARTS) << PART_BIT_COUNT) \ | (((h) & (HIGH_LOW_PARTS << PART_BIT_COUNT)) >> PART_BIT_COUNT)) #define HIGH_PART (~((uintptr_t)0x0) - (uintptr_t)0xFFFFFFFF) -#define LOW_LOW_PARTS 0x3333 -#define HIGH_LOW_PARTS 0xCCCC +#define LOW_LOW_PARTS ((uintptr_t)0x3333) +#define HIGH_LOW_PARTS ((uintptr_t)0xCCCC) #define PART_BIT_COUNT 16 XFORM_NONGCING static Scheme_Hash_Tree *resolve_placeholder(Scheme_Hash_Tree *ht)