diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-05-24 16:56:23 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-05-25 08:49:17 +0100 |
| commit | af9e96991659185821632ff96383480c9dc9cbda (patch) | |
| tree | 7918e80cbdbdc15a18c05abca941961b50ecc978 /rts/Stats.c | |
| parent | 18a0ead12b605fd20c13f5255d78cfbf699fe0c4 (diff) | |
| download | haskell-af9e96991659185821632ff96383480c9dc9cbda.tar.gz | |
fix an integer overflow (#5086), and pre-emptively avoid more of these
in the future.
Diffstat (limited to 'rts/Stats.c')
| -rw-r--r-- | rts/Stats.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index 3036ed7265..8366bf47b2 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -817,7 +817,7 @@ statDescribeGens(void) gen_blocks += gcThreadLiveBlocks(i,g); } - debugBelch("%5d %7d %9d", g, gen->max_blocks, mut); + debugBelch("%5d %7ld %9d", g, (lnat)gen->max_blocks, mut); gen_slop = gen_blocks * BLOCK_SIZE_W - gen_live; |