X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=bf39c0ac1436d803ba099733629b2b1e09edc621;hb=13b1fa907fd5d700167cc4da26668fb356d5ecfc;hp=5169895631acba8052a5948eedbe986aa65ff790;hpb=c50bc4658e3801442b4581bd1d9a19f67567cdda;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 5169895..bf39c0a 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1025,6 +1025,10 @@ scheduleHandleHeapOverflow( Capability *cap, StgTSO *t )
 	
 	blocks = (lnat)BLOCK_ROUND_UP(cap->r.rHpAlloc) / BLOCK_SIZE;
 	
+        if (blocks > BLOCKS_PER_MBLOCK) {
+            barf("allocation of %ld bytes too large (GHC should have complained at compile-time)", (long)cap->r.rHpAlloc);
+        }
+
 	debugTrace(DEBUG_sched,
 		   "--<< thread %ld (%s) stopped: requesting a large block (size %ld)\n", 
 		   (long)t->id, what_next_strs[t->what_next], blocks);