From 019a8601e71ced531f598b096658e097eeb8812d Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Wed, 30 Dec 2009 20:56:56 +0000
Subject: [PATCH] Remove hash_counter static variable

svn: r17441
---
 src/mzscheme/src/hash.c        | 6 ------
 src/mzscheme/src/mzhashchk.inc | 7 +------
 2 files changed, 1 insertion(+), 12 deletions(-)

diff --git a/src/mzscheme/src/hash.c b/src/mzscheme/src/hash.c
index 18dc0bb8bf..495355a950 100644
--- a/src/mzscheme/src/hash.c
+++ b/src/mzscheme/src/hash.c
@@ -919,10 +919,6 @@ static Scheme_Object *hash_k(void)
   return scheme_make_integer_value(nv);
 }
 
-/* Number of lists/vectors/structs/boxes to hash before
-   paying for a stack check. */
-#define HASH_COUNT_START 20
-
 static long overflow_equal_hash_key(Scheme_Object *o, long k, Hash_Info *hi)
 {
   Scheme_Object *nv;
@@ -995,7 +991,6 @@ XFORM_NONGCING static long dbl_hash2_val(double d)
 static long equal_hash_key(Scheme_Object *o, long k, Hash_Info *hi)
 {
   Scheme_Type t;
-  static int hash_counter = HASH_COUNT_START;
 
  top:
   t = SCHEME_TYPE(o);
@@ -1418,7 +1413,6 @@ static long overflow_equal_hash_key2(Scheme_Object *o, Hash_Info *hi)
 static long equal_hash_key2(Scheme_Object *o, Hash_Info *hi)
 {
   Scheme_Type t;
-  static int hash_counter = HASH_COUNT_START;
 
  top:
   t = SCHEME_TYPE(o);
diff --git a/src/mzscheme/src/mzhashchk.inc b/src/mzscheme/src/mzhashchk.inc
index 5298027645..4f8fb22491 100644
--- a/src/mzscheme/src/mzhashchk.inc
+++ b/src/mzscheme/src/mzhashchk.inc
@@ -1,12 +1,7 @@
-
-    if (!--hash_counter) {
-      hash_counter = HASH_COUNT_START;
-      SCHEME_USE_FUEL(HASH_COUNT_START);
-    
+      SCHEME_USE_FUEL(1);
 #ifdef DO_STACK_CHECK
       {
 #include "mzstkchk.h"
         return OVERFLOW_HASH();
       }
 #endif
-    }