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

avoid compiler warning

Browse Source
This commit is contained in:
Matthew Flatt 2016-01-01 14:33:16 -07:00
parent c0915b02b0
commit fd7b8b29ea
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -779,6 +779,7 @@ get_bucket (Scheme_Bucket_Table *table, const char *key, int add, Scheme_Bucket
lkey = PTR_TO_LONG((Scheme_Object *)key); lkey = PTR_TO_LONG((Scheme_Object *)key);
h = lkey & mask; h = lkey & mask;
h2 = (lkey >> 1) & mask; h2 = (lkey >> 1) & mask;
ekey = NULL;
} }
h2 |= 0x1; h2 |= 0x1;