diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-03-16 13:58:09 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-03-16 13:58:09 +0000 |
| commit | bbe90cbe14b94899efe0ce24e0c5fdbdb8d40ada (patch) | |
| tree | bce4fdd2941b99e94a758d89e84aa136ea8a8427 /ghc/rts | |
| parent | 1dfac5c8e457dccde541c2d38e702cb1567ed661 (diff) | |
| download | haskell-bbe90cbe14b94899efe0ce24e0c5fdbdb8d40ada.tar.gz | |
fix non-threaded way
Diffstat (limited to 'ghc/rts')
| -rw-r--r-- | ghc/rts/Task.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ghc/rts/Task.c b/ghc/rts/Task.c index 7621d8b0a7..89db782800 100644 --- a/ghc/rts/Task.c +++ b/ghc/rts/Task.c @@ -176,7 +176,13 @@ discardTask (Task *task) { ASSERT_LOCK_HELD(&sched_mutex); if (!task->stopped) { - IF_DEBUG(scheduler,sched_belch("discarding task %p",(void *)task->id)); + IF_DEBUG(scheduler,sched_belch("discarding task %p", +#ifdef THREADED_RTS + (void *)task->id +#else + (void *)task +#endif + )); task->cap = NULL; task->tso = NULL; task->stopped = rtsTrue; |