X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=c6fb1d885e61cb23bcf8b7b986fcc993eaf8cd6a;hb=0ba8b0bed96c78570bc750e0413d555b6939c16c;hp=fd84fde490956e4c51f4637720688dea1a365d39;hpb=dad784757de1cbe15a78b580ba6e1ac4b6326317;p=ghc-hetmet.git diff --git a/rts/Schedule.c b/rts/Schedule.c index fd84fde..c6fb1d8 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -1005,6 +1005,8 @@ scheduleDetectDeadlock (Capability *cap, Task *task) // either we have threads to run, or we were interrupted: ASSERT(!emptyRunQueue(cap) || sched_state >= SCHED_INTERRUPTING); + + return; } #endif @@ -1643,7 +1645,7 @@ scheduleHandleHeapOverflow( Capability *cap, StgTSO *t ) } debugTrace(DEBUG_sched, - "--<< thread %ld (%s) stopped: HeapOverflow\n", + "--<< thread %ld (%s) stopped: HeapOverflow", (long)t->id, whatNext_strs[t->what_next]); #if defined(GRAN)