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/sm | |
| 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/sm')
| -rw-r--r-- | rts/sm/GC.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/GC.c b/rts/sm/GC.c index fb73180d0f..51eab4e2be 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -1247,7 +1247,7 @@ prepare_collected_gen (generation *gen) // for a compacted generation, we need to allocate the bitmap if (gen->mark) { - nat bitmap_size; // in bytes + lnat bitmap_size; // in bytes bdescr *bitmap_bdescr; StgWord *bitmap; |