X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=3a454959f5f9f8127ed1171d9e2c1b0724d20d7f;hb=8ded597b532eda747b5d911e6991cdb0013f77a1;hp=375520d011327b8d7cb885b353394db5273d06be;hpb=8cc74db64356bd332a11c73788c4108e2e3c5acd;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 375520d..3a45495 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2837,7 +2837,7 @@ threadStackOverflow(Capability *cap, StgTSO *tso)
 	     "increasing stack size from %ld words to %d.",
 	     (long)tso->stack_size, new_stack_size);
 
-  dest = (StgTSO *)allocate(new_tso_size);
+  dest = (StgTSO *)allocateLocal(cap,new_tso_size);
   TICK_ALLOC_TSO(new_stack_size,0);
 
   /* copy the TSO block and the old stack into the new area */
@@ -2949,7 +2949,7 @@ checkBlackHoles (Capability *cap)
     t = blackhole_queue;
     while (t != END_TSO_QUEUE) {
 	ASSERT(t->why_blocked == BlockedOnBlackHole);
-	type = get_itbl(t->block_info.closure)->type;
+	type = get_itbl(UNTAG_CLOSURE(t->block_info.closure))->type;
 	if (type != BLACKHOLE && type != CAF_BLACKHOLE) {
 	    IF_DEBUG(sanity,checkTSO(t));
 	    t = unblockOne(cap, t);