From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 31 Jan 2011 13:59:51 +0000 (+0000)
Subject: fix warning
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=209e093599d0d4db5487d124895d817c55b7c052;p=ghc-hetmet.git

fix warning
---

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]);
     }