From 3773b48ca9693e606716e162838024634424fff3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 19 Dec 2008 21:11:02 +0000 Subject: [PATCH] fix accounting bug svn: r12908 --- src/mzscheme/gc2/mem_account.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/mzscheme/gc2/mem_account.c b/src/mzscheme/gc2/mem_account.c index 55c611894e..74bc79e794 100644 --- a/src/mzscheme/gc2/mem_account.c +++ b/src/mzscheme/gc2/mem_account.c @@ -213,7 +213,7 @@ inline static void clean_up_owner_table(NewGC *gc) inline static unsigned long custodian_usage(NewGC*gc, void *custodian) { - OTEntry **owner_table = gc->owner_table; + OTEntry **owner_table; unsigned long retval = 0; int i; @@ -226,6 +226,8 @@ inline static unsigned long custodian_usage(NewGC*gc, void *custodian) } i = custodian_to_owner_set(gc, (Scheme_Custodian *)custodian); + + owner_table = gc->owner_table; if (owner_table[i]) retval = owner_table[i]->memory_use; else