Including type tag in gc debug output for conservatively preserved objects.

This commit is contained in:
Alex Shinn 2011-12-11 21:06:19 +09:00
parent 422beccc7d
commit 88c283a820

4
gc.c
View file

@ -242,8 +242,8 @@ void sexp_conservative_mark (sexp ctx) {
if (1) {
#if SEXP_USE_DEBUG_GC > 3
if (p && sexp_pointerp(p)) {
fprintf(stderr, SEXP_BANNER("MISS: %p: %s"), p,
sexp_pointer_source(p));
fprintf(stderr, SEXP_BANNER("MISS: %p [%d]: %s"), p,
sexp_pointer_tag(p), sexp_pointer_source(p));
fflush(stderr);
}
#endif