projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
debug message tweaks
[ghc-hetmet.git]
/
rts
/
Schedule.c
diff --git
a/rts/Schedule.c
b/rts/Schedule.c
index
fd84fde
..
c6fb1d8
100644
(file)
--- 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);
// either we have threads to run, or we were interrupted:
ASSERT(!emptyRunQueue(cap) || sched_state >= SCHED_INTERRUPTING);
+
+ return;
}
#endif
}
#endif
@@
-1643,7
+1645,7
@@
scheduleHandleHeapOverflow( Capability *cap, StgTSO *t )
}
debugTrace(DEBUG_sched,
}
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)
(long)t->id, whatNext_strs[t->what_next]);
#if defined(GRAN)