fix an integer overflow (#5086), and pre-emptively avoid more of these

[ghc-hetmet.git] / rts / sm / GC.c

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index fb73180..51eab4e 100644 (file)
--- 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;