From f645ecbb54278e80fd768d2e2b97aa2083cde2aa Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 27 Dec 2009 13:34:53 +0900 Subject: [PATCH] updating the sexp_allocated_bytes signature to use the context for context-local types --- lib/chibi/heap-stats.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/chibi/heap-stats.c b/lib/chibi/heap-stats.c index 381d0b31..fcea809b 100644 --- a/lib/chibi/heap-stats.c +++ b/lib/chibi/heap-stats.c @@ -10,7 +10,7 @@ #endif extern sexp sexp_gc (sexp ctx, size_t *sum_freed); -extern sexp_uint_t sexp_allocated_bytes (sexp x); +extern sexp_uint_t sexp_allocated_bytes (sexp ctx, sexp x); static void sexp_print_simple (sexp ctx, sexp x, sexp out, int depth) { int i; @@ -88,7 +88,7 @@ static sexp sexp_heap_walk (sexp ctx, int depth, int printp) { stats[sexp_pointer_tag(p)]++; if (sexp_pointer_tag(p) > hi_type) hi_type = sexp_pointer_tag(p); - p = (sexp) (((char*)p) + sexp_heap_align(sexp_allocated_bytes(p))); + p = (sexp) (((char*)p) + sexp_heap_align(sexp_allocated_bytes(ctx, p))); } }