From e455d7b2cb97088b64753dda5626200604d5326c Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 9 Feb 2011 23:45:25 +0900 Subject: [PATCH] don't print any debug info about potentially invalid objects --- gc.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/gc.c b/gc.c index 93b26616..175c6c3c 100644 --- a/gc.c +++ b/gc.c @@ -46,15 +46,13 @@ sexp_uint_t sexp_allocated_bytes (sexp ctx, sexp x) { static int sexp_in_heap_p(sexp ctx, sexp x) { sexp_heap h; if ((sexp_uint_t)x & (sexp_heap_align(1)-1)) { - fprintf(stderr, SEXP_BANNER("invalid heap alignment: %p %d"), - x, sexp_pointer_tag(x)); + fprintf(stderr, SEXP_BANNER("invalid heap alignment: %p"), x); return 0; } for (h=sexp_context_heap(ctx); h; h=h->next) if (((sexp)h < x) && (x < (sexp)(h->data + h->size))) return 1; - fprintf(stderr, SEXP_BANNER("invalid object outside heap: %p %d"), - x, sexp_pointer_tag(x)); + fprintf(stderr, SEXP_BANNER("invalid object outside heap: %p"), x); return 0; } #else