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

fix delayed hashing (especially as needed by MrEd under X11) again

Browse Source 
svn: r8160
This commit is contained in:
Matthew Flatt 2007-12-30 12:10:12 +00:00
parent da15443ebc
commit a85d979a2d
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mzscheme/src/hash.c
View File

@ -160,9 +160,17 @@ static Scheme_Object *do_hash(Scheme_Hash_Table *table, Scheme_Object *key, int
mask = table->size - 1;
if (table->make_hash_indices) {
table->make_hash_indices((void *)key, (long *)&h, NULL);
GC_CAN_IGNORE hash_v_t *_h2;
if (table->compare) {
h2 = 0;
_h2 = NULL;
} else
_h2 = &h2;
table->make_hash_indices((void *)key, (long *)&h, (long *)_h2);
h = h & mask;
h2 = 0;
if (_h2) {
h2 = (h2 & mask) | 1;
}
} else {
unsigned long lkey;
lkey = (unsigned long)PTR_TO_LONG((Scheme_Object *)key);