Commit bdbb7f57 authored by Simon Marlow's avatar Simon Marlow
Browse files

Fix an arithmetic overflow bug causing crashes with multi-GB heaps

parent d4942f78
......@@ -283,7 +283,7 @@ alloc_mega_group (nat mblocks)
if (best)
{
// we take our chunk off the end here.
nat best_mblocks = BLOCKS_TO_MBLOCKS(best->blocks);
StgWord best_mblocks = BLOCKS_TO_MBLOCKS(best->blocks);
bd = FIRST_BDESCR((StgWord8*)MBLOCK_ROUND_DOWN(best) +
(best_mblocks-mblocks)*MBLOCK_SIZE);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment