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

fix problem with bucket hashing table size

Browse Source 
svn: r9843
This commit is contained in:
Matthew Flatt 2008-05-15 12:56:42 +00:00
parent faee206b19
commit c8df8f0793
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,8 +30,8 @@
#include <math.h> #include <math.h>
#include "../gc2/gc2_obj.h" #include "../gc2/gc2_obj.h"
int scheme_hash_request_count; long scheme_hash_request_count;
int scheme_hash_iteration_count; long scheme_hash_iteration_count;
#ifdef MZ_PRECISE_GC #ifdef MZ_PRECISE_GC
static void register_traversers(void); static void register_traversers(void);
@ -519,7 +519,7 @@ scheme_make_bucket_table (int size, int type)
table = MALLOC_ONE_TAGGED(Scheme_Bucket_Table); table = MALLOC_ONE_TAGGED(Scheme_Bucket_Table);
table->size = 2; table->size = 4;
while (table->size < size) { while (table->size < size) {
table->size <<= 1; table->size <<= 1;
} }

4
src/mzscheme/src/thread.c
View File

@ -122,8 +122,8 @@ extern void scheme_gmp_tls_restore_snapshot(long *s, long *save, int do_free);
static void check_ready_break(); static void check_ready_break();
extern int scheme_num_read_syntax_objects; extern int scheme_num_read_syntax_objects;
extern int scheme_hash_request_count; extern long scheme_hash_request_count;
extern int scheme_hash_iteration_count; extern long scheme_hash_iteration_count;
#ifdef MZ_USE_JIT #ifdef MZ_USE_JIT
extern int scheme_jit_malloced; extern int scheme_jit_malloced;
#else #else