projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-06-28 13:43:41 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
Hash.c
diff --git
a/ghc/rts/Hash.c
b/ghc/rts/Hash.c
index
d3e4cf4
..
ada11a6
100644
(file)
--- a/
ghc/rts/Hash.c
+++ b/
ghc/rts/Hash.c
@@
-245,8
+245,9
@@
insertHashTable(HashTable *table, StgWord key, void *data)
int index;
HashList *hl;
int index;
HashList *hl;
- /* We want no duplicates */
- ASSERT(lookupHashTable(table, key) == NULL);
+ // Disable this assert; sometimes it's useful to be able to
+ // overwrite entries in the hash table.
+ // ASSERT(lookupHashTable(table, key) == NULL);
/* When the average load gets too high, we expand the table */
if (++table->kcount >= HLOAD * table->bcount)
/* When the average load gets too high, we expand the table */
if (++table->kcount >= HLOAD * table->bcount)