diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-10-13 15:42:00 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-10-13 15:42:00 +0000 |
| commit | 9042f34904f63a6d0a1ac66d9d1a8c4acab21d4a (patch) | |
| tree | 562d174876a94846a7cfb996d993f7ec46499661 | |
| parent | ff5e4de4e3f3bcd04739ca77ca4c5dda375b85f2 (diff) | |
| download | haskell-9042f34904f63a6d0a1ac66d9d1a8c4acab21d4a.tar.gz | |
32-bit fix
| -rw-r--r-- | rts/sm/MBlock.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/sm/MBlock.c b/rts/sm/MBlock.c index b9d71f68c9..f5b61c6547 100644 --- a/rts/sm/MBlock.c +++ b/rts/sm/MBlock.c @@ -271,10 +271,12 @@ freeAllMBlocks(void) osFreeAllMBlocks(); +#if SIZEOF_VOID_P == 8 for (n = 0; n < mblock_map_count; n++) { stgFree(mblock_maps[n]); } stgFree(mblock_maps); +#endif } void |