summaryrefslogtreecommitdiff
path: root/rts/Task.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/Task.c')
-rw-r--r--rts/Task.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Task.c b/rts/Task.c
index f4a37bf6ff..125000b914 100644
--- a/rts/Task.c
+++ b/rts/Task.c
@@ -320,7 +320,7 @@ discardTasksExcept (Task *keep)
for (task = all_tasks; task != NULL; task=next) {
next = task->all_next;
if (task != keep) {
- debugTrace(DEBUG_sched, "discarding task %ld", (long)TASK_ID(task));
+ debugTrace(DEBUG_sched, "discarding task %" FMT_SizeT "", (size_t)TASK_ID(task));
freeTask(task);
}
}
@@ -393,7 +393,7 @@ workerTaskStop (Task *task)
static void *taskId(Task *task)
{
#ifdef THREADED_RTS
- return (void *)task->id;
+ return (void *)(size_t)task->id;
#else
return (void *)task;
#endif