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

Remove equal_counter

Browse Source 
svn: r17260
This commit is contained in:
Kevin Tew 2009-12-10 16:43:28 +00:00
parent 2003de720a
commit d339a01d04
2 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mzscheme/src/bool.c
View File

@ -340,13 +340,8 @@ static int is_equal_overflow(Scheme_Object *obj1, Scheme_Object *obj2, Equal_Inf
return SCHEME_TRUEP(v);
}
/* Number of lists/vectors/structs/boxes to compare before
paying for a stack check. */
#define EQUAL_COUNT_START 20
int is_equal (Scheme_Object *obj1, Scheme_Object *obj2, Equal_Info *eql)
{
static int equal_counter = EQUAL_COUNT_START;
top:
if (eql->next_next) {

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

@ -1,12 +1,7 @@
if (!--equal_counter) {
equal_counter = EQUAL_COUNT_START;
SCHEME_USE_FUEL(EQUAL_COUNT_START);
SCHEME_USE_FUEL(1);
#ifdef DO_STACK_CHECK
{
#include "mzstkchk.h"
return is_equal_overflow(obj1, obj2, eql);
}
#endif
}