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

allow weak hash tables to shrink

Browse Source
This commit is contained in:
Matthew Flatt 2015-01-19 11:14:04 -07:00
parent e3591d30b9
commit 7f5a834fdb
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -795,6 +795,10 @@ get_bucket (Scheme_Bucket_Table *table, const char *key, int add, Scheme_Bucket
if (actual * FILL_FACTOR < table->count) {
/* Decrement size so that the table won't actually grow. */
table->size >>= 1;
if ((table->size > 64) && (2 * actual * FILL_FACTOR < table->count)) {
/* Allow the table to shrink */
table->size >>= 1;
}
}
}