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

FIX #1791: fail with out-of-heap when allocating more than the max heap size in one go

Normally the out-of-heap check is performed post-GC, but there are
cases where we can detect earlier that we definitely have exhausted
the heap size limit.
parent 1322d0f3
......@@ -565,6 +565,14 @@ allocateInGen (generation *g, nat n)
if (n >= LARGE_OBJECT_THRESHOLD/sizeof(W_))
nat req_blocks = (lnat)BLOCK_ROUND_UP(n*sizeof(W_)) / BLOCK_SIZE;
// Attempting to allocate an object larger than maxHeapSize
// should definitely be disallowed. (bug #1791)
if (RtsFlags.GcFlags.maxHeapSize > 0 &&
req_blocks >= RtsFlags.GcFlags.maxHeapSize) {
bd = allocGroup(req_blocks);
dbl_link_onto(bd, &stp->large_objects);
stp->n_large_blocks += bd->blocks; // might be larger than req_blocks
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