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

avoid a compiler warning

Browse Source
This commit is contained in:
Matthew Flatt 2016-01-02 07:46:42 -07:00
parent 2529e63b74
commit 190925ee32
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -276,12 +276,14 @@ static Scheme_Object *do_hash(Scheme_Hash_Table *table, Scheme_Object *key, int
h = to_unsigned_hash(hx) & mask;
if (_h2x)
h2 = (to_unsigned_hash(h2x) & mask) | 1;
ekey = NULL;
}
} else {
uintptr_t lkey;
lkey = PTR_TO_LONG((Scheme_Object *)key);
h = lkey & mask;
h2 = ((lkey >> 1) & mask) | 1;
ekey = NULL;
}
keys = table->keys;