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

Remove hash_counter static variable

Browse Source 
svn: r17441
This commit is contained in:
Kevin Tew 2009-12-30 20:56:56 +00:00
parent 924314b634
commit 019a8601e7
2 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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);

7
src/mzscheme/src/mzhashchk.inc
View File

@ -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
}