diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-21 11:37:18 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-21 11:37:18 +0100 |
| commit | 0a7c5b891f9002b93f1cef3fe5b62aade89a6178 (patch) | |
| tree | e4560c90c805d2e6eb482998a52ffc6e1703ad8d /rts/sm/BlockAlloc.c | |
| parent | bbb5843bff9f9664869ac6eca58dbc07dbc69c36 (diff) | |
| download | haskell-0a7c5b891f9002b93f1cef3fe5b62aade89a6178.tar.gz | |
improve debug output
Diffstat (limited to 'rts/sm/BlockAlloc.c')
| -rw-r--r-- | rts/sm/BlockAlloc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/BlockAlloc.c b/rts/sm/BlockAlloc.c index 0b8955c8fb..8a1cfab966 100644 --- a/rts/sm/BlockAlloc.c +++ b/rts/sm/BlockAlloc.c @@ -348,7 +348,7 @@ allocGroup (nat n) #if 0 /* useful for debugging fragmentation */ if ((W_)mblocks_allocated * BLOCKS_PER_MBLOCK * BLOCK_SIZE_W - (W_)((n_alloc_blocks - n) * BLOCK_SIZE_W) > (2*1024*1024)/sizeof(W_)) { - debugBelch("Fragmentation, wanted %d blocks:", n); + debugBelch("Fragmentation, wanted %d blocks, %ld MB free\n", n, ((mblocks_allocated * BLOCKS_PER_MBLOCK) - n_alloc_blocks) / BLOCKS_PER_MBLOCK); RtsFlags.DebugFlags.block_alloc = 1; checkFreeListSanity(); } |