From 209e093599d0d4db5487d124895d817c55b7c052 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 31 Jan 2011 13:59:51 +0000 Subject: [PATCH] fix warning --- rts/sm/MBlock.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/rts/sm/MBlock.c b/rts/sm/MBlock.c index f5b61c6..1801086 100644 --- a/rts/sm/MBlock.c +++ b/rts/sm/MBlock.c @@ -265,13 +265,12 @@ freeMBlocks(void *addr, nat n) void freeAllMBlocks(void) { - nat n; - debugTrace(DEBUG_gc, "freeing all megablocks"); osFreeAllMBlocks(); #if SIZEOF_VOID_P == 8 + nat n; for (n = 0; n < mblock_map_count; n++) { stgFree(mblock_maps[n]); } -- 1.7.10.4