Commit fa9c11a2 authored by Simon Marlow's avatar Simon Marlow

fix build for certain picky versions of gcc

parent e6218fe7
......@@ -171,18 +171,18 @@ boundTaskExiting (Task *task)
IF_DEBUG(scheduler,sched_belch("task exiting"));
}
#ifdef THREADED_RTS
#define TASK_ID(t) (t)->id
#else
#define TASK_ID(t) (t)
#endif
void
discardTask (Task *task)
{
ASSERT_LOCK_HELD(&sched_mutex);
if (!task->stopped) {
IF_DEBUG(scheduler,sched_belch("discarding task %p",
#ifdef THREADED_RTS
(void *)task->id
#else
(void *)task
#endif
));
IF_DEBUG(scheduler,sched_belch("discarding task %p", TASK_ID(task)));
task->cap = NULL;
task->tso = NULL;
task->stopped = rtsTrue;
......
Markdown is supported
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