diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-06-16 14:06:52 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-06-16 14:06:52 +0000 |
| commit | 48ff2a03397d744e4b24797d7b16fdaf6feb576a (patch) | |
| tree | ac77d49b91b097dc57fc901f88d4d635ce633294 /rts | |
| parent | c58450c0c62dc9bf74ecd5df3c07a3f1ce511e7f (diff) | |
| download | haskell-48ff2a03397d744e4b24797d7b16fdaf6feb576a.tar.gz | |
make compilation a little less noisy
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Task.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Task.c b/rts/Task.c index 8779e292ef..c8cd9c4a2c 100644 --- a/rts/Task.c +++ b/rts/Task.c @@ -189,7 +189,7 @@ discardTask (Task *task) { ASSERT_LOCK_HELD(&sched_mutex); if (!task->stopped) { - debugTrace(DEBUG_sched, "discarding task %p", TASK_ID(task)); + debugTrace(DEBUG_sched, "discarding task %ld", TASK_ID(task)); task->cap = NULL; task->tso = NULL; task->stopped = rtsTrue; @@ -240,7 +240,7 @@ workerTaskStop (Task *task) void resetTaskManagerAfterFork (void) { -#warning TODO! + // TODO! taskCount = 0; } |