diff options
| author | sven.panne@aedion.de <unknown> | 2006-08-10 15:36:24 +0000 |
|---|---|---|
| committer | sven.panne@aedion.de <unknown> | 2006-08-10 15:36:24 +0000 |
| commit | f9e1c2af8fdd112019a657e66b0cd685d8df66f6 (patch) | |
| tree | e786b9c422ad2b41e56a6c53b8790c02eb381f8f /rts/Task.c | |
| parent | 78bd1cdb548b43cf6892234006730c69ddaa2a9e (diff) | |
| download | haskell-f9e1c2af8fdd112019a657e66b0cd685d8df66f6.tar.gz | |
Match format strings and arguments for printf-like functions
Diffstat (limited to 'rts/Task.c')
| -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 dcfa5b5aee..3be5b283d7 100644 --- a/rts/Task.c +++ b/rts/Task.c @@ -192,7 +192,7 @@ discardTask (Task *task) { ASSERT_LOCK_HELD(&sched_mutex); if (!task->stopped) { - debugTrace(DEBUG_sched, "discarding task %ld", TASK_ID(task)); + debugTrace(DEBUG_sched, "discarding task %ld", (long)TASK_ID(task)); task->cap = NULL; task->tso = NULL; task->stopped = rtsTrue; @@ -316,7 +316,7 @@ printAllTasks(void) debugBelch("on capability %d, ", task->cap->no); } if (task->tso) { - debugBelch("bound to thread %d", task->tso->id); + debugBelch("bound to thread %lu", (unsigned long)task->tso->id); } else { debugBelch("worker"); } |