mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
adding better debugging for zero-sized object warning
This commit is contained in:
parent
dc76aee1d6
commit
e5f6c1bbba
1 changed files with 1 additions and 1 deletions
2
gc.c
2
gc.c
|
@ -99,7 +99,7 @@ SEXP_API sexp_uint_t sexp_allocated_bytes (sexp ctx, sexp x) {
|
||||||
res = sexp_type_size_of_object(t, x) + SEXP_GC_PAD;
|
res = sexp_type_size_of_object(t, x) + SEXP_GC_PAD;
|
||||||
#if SEXP_USE_DEBUG_GC
|
#if SEXP_USE_DEBUG_GC
|
||||||
if (res == 0) {
|
if (res == 0) {
|
||||||
fprintf(stderr, SEXP_BANNER("%p zero-size object: %p"), ctx, x);
|
fprintf(stderr, SEXP_BANNER("%p zero-size object: %p (type tag: %d)"), ctx, x, sexp_pointer_tag(x));
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
|
Loading…
Add table
Reference in a new issue