From c8df8f07930bdcbd8039a33c5b705a7f9407a671 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 May 2008 12:56:42 +0000
Subject: [PATCH] fix problem with bucket hashing table size

svn: r9843
---
 src/mzscheme/src/hash.c   | 6 +++---
 src/mzscheme/src/thread.c | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/mzscheme/src/hash.c b/src/mzscheme/src/hash.c
index 066ff3ec26..1ad3921db7 100644
--- a/src/mzscheme/src/hash.c
+++ b/src/mzscheme/src/hash.c
@@ -30,8 +30,8 @@
 #include <math.h>
 #include "../gc2/gc2_obj.h"
 
-int scheme_hash_request_count;
-int scheme_hash_iteration_count;
+long scheme_hash_request_count;
+long scheme_hash_iteration_count;
 
 #ifdef MZ_PRECISE_GC
 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->size = 2;
+  table->size = 4;
   while (table->size < size) {
     table->size <<= 1;
   }
diff --git a/src/mzscheme/src/thread.c b/src/mzscheme/src/thread.c
index ccb97ddb84..8debebe367 100644
--- a/src/mzscheme/src/thread.c
+++ b/src/mzscheme/src/thread.c
@@ -122,8 +122,8 @@ extern void scheme_gmp_tls_restore_snapshot(long *s, long *save, int do_free);
 static void check_ready_break();
 
 extern int scheme_num_read_syntax_objects;
-extern int scheme_hash_request_count;
-extern int scheme_hash_iteration_count;
+extern long scheme_hash_request_count;
+extern long scheme_hash_iteration_count;
 #ifdef MZ_USE_JIT
 extern int scheme_jit_malloced;
 #else