suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

repair for hash-table adjustment

Browse Source 
Fix 49fd1e41da for some compilers.
This commit is contained in:
Matthew Flatt 2016-05-15 21:06:23 -06:00
parent a134d0c0a3
commit 2109b26c15
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/racket/src/hash.c
View File

@ -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) \
| (((h) & (HIGH_LOW_PARTS << PART_BIT_COUNT)) >> PART_BIT_COUNT)) | (((h) & (HIGH_LOW_PARTS << PART_BIT_COUNT)) >> PART_BIT_COUNT))
#define HIGH_PART (~((uintptr_t)0x0) - (uintptr_t)0xFFFFFFFF) #define HIGH_PART (~((uintptr_t)0x0) - (uintptr_t)0xFFFFFFFF)
#define LOW_LOW_PARTS 0x3333 #define LOW_LOW_PARTS ((uintptr_t)0x3333)
#define HIGH_LOW_PARTS 0xCCCC #define HIGH_LOW_PARTS ((uintptr_t)0xCCCC)
#define PART_BIT_COUNT 16 #define PART_BIT_COUNT 16
XFORM_NONGCING static Scheme_Hash_Tree *resolve_placeholder(Scheme_Hash_Tree *ht) XFORM_NONGCING static Scheme_Hash_Tree *resolve_placeholder(Scheme_Hash_Tree *ht)