Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing GC_DEBUG>=2

Browse source
This commit is contained in:
Alex Shinn 2011-02-10 00:44:00 +09:00
parent 7fc2c9d716
commit 10ce6a47cb
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gc.c
View file

@ -76,9 +76,9 @@ void sexp_mark (sexp ctx, sexp x) {
} }
#endif #endif
#if SEXP_USE_DEBUG_GC > 1 #if SEXP_USE_DEBUG_GC > 1
if (sexp_pointer_tag(p)<=0 || sexp_pointer_tag(p)>sexp_context_num_types(ctx)){ if (sexp_pointer_tag(x)<=0 || sexp_pointer_tag(x)>sexp_context_num_types(ctx)){
fprintf(stderr, SEXP_BANNER("%p mark: bad object at %p: tag: %d"), fprintf(stderr, SEXP_BANNER("%p mark: bad object at %p: tag: %d"),
ctx, p, sexp_pointer_tag(p)); ctx, x, sexp_pointer_tag(x));
return; return;
} }
#endif #endif