diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-01-31 13:59:51 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-01-31 13:59:51 +0000 |
| commit | 209e093599d0d4db5487d124895d817c55b7c052 (patch) | |
| tree | 34e53f957c791ecb304e9404a4d80a893d7a1377 /rts | |
| parent | 9042f34904f63a6d0a1ac66d9d1a8c4acab21d4a (diff) | |
| download | haskell-209e093599d0d4db5487d124895d817c55b7c052.tar.gz | |
fix warning
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/MBlock.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/rts/sm/MBlock.c b/rts/sm/MBlock.c index f5b61c6547..1801086c2a 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]); } |