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:
Gustavo Massaccesi 2015-07-17 09:08:15 -03:00 committed by Matthew Flatt
parent 1eba8ac2a7
commit 597eb161f5
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/src/hamt_subset.inc
View File

@ -142,7 +142,7 @@ HAMT_NONGCING int HAMT_SUBSET_OF(Scheme_Hash_Tree *t1, Scheme_Hash_Tree *t2, int
} }
} }
pos1++; pos1++;
HAMT_USE_FUEL(); HAMT_USE_FUEL(1);
i >>= 1; i >>= 1;
index++; index++;
} else if (i & 0xFF) { } else if (i & 0xFF) {

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

@ -2927,7 +2927,7 @@ static int hamt_equal_entries(int stype, void *eql_data,
#define HAMT_ELEMENT_OF_COLLISION hamt_element_of_collision #define HAMT_ELEMENT_OF_COLLISION hamt_element_of_collision
#define HAMT_EQUAL_ENTRIES hamt_equal_entries #define HAMT_EQUAL_ENTRIES hamt_equal_entries
#define HAMT_IF_VAL(v, n) v #define HAMT_IF_VAL(v, n) v
#define HAMT_USE_FUEL() SCHEME_USE_FUEL() #define HAMT_USE_FUEL(n) SCHEME_USE_FUEL(n)
#include "hamt_subset.inc" #include "hamt_subset.inc"
/* fast variant for eq-based sets (i.e., no separate values in table) */ /* fast variant for eq-based sets (i.e., no separate values in table) */
@ -2937,7 +2937,7 @@ static int hamt_equal_entries(int stype, void *eql_data,
#define HAMT_ELEMENT_OF_COLLISION hamt_eq_element_of_collision #define HAMT_ELEMENT_OF_COLLISION hamt_eq_element_of_collision
#define HAMT_EQUAL_ENTRIES(stype, eql_data, k1, v1, k2, v2) SAME_OBJ(k1, k2) #define HAMT_EQUAL_ENTRIES(stype, eql_data, k1, v1, k2, v2) SAME_OBJ(k1, k2)
#define HAMT_IF_VAL(v, n) n #define HAMT_IF_VAL(v, n) n
#define HAMT_USE_FUEL() /* empty */ #define HAMT_USE_FUEL(n) /* empty */
#include "hamt_subset.inc" #include "hamt_subset.inc"
static uintptr_t hamt_combine_key_hashes(Scheme_Hash_Tree *ht) static uintptr_t hamt_combine_key_hashes(Scheme_Hash_Tree *ht)
@ -2949,7 +2949,7 @@ static uintptr_t hamt_combine_key_hashes(Scheme_Hash_Tree *ht)
for (i = 0; i < popcount; i++) { for (i = 0; i < popcount; i++) {
if (HASHTR_SUBTREEP(ht->els[i])) { if (HASHTR_SUBTREEP(ht->els[i])) {
SCHEME_USE_FUEL(); SCHEME_USE_FUEL(1);
code = hamt_combine_key_hashes((Scheme_Hash_Tree *)ht->els[i]); code = hamt_combine_key_hashes((Scheme_Hash_Tree *)ht->els[i]);
} else if (HASHTR_COLLISIONP(ht->els[i])) { } else if (HASHTR_COLLISIONP(ht->els[i])) {
int count = ((Scheme_Hash_Tree *)ht->els[i])->count, j; int count = ((Scheme_Hash_Tree *)ht->els[i])->count, j;