diff options
| author | Mikolaj Konarski <mikolaj@well-typed.com> | 2012-07-24 11:41:27 +0200 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj@well-typed.com> | 2012-07-25 16:24:45 +0200 |
| commit | c859d17f9b0ae8559dac4f7e5cb8521e7ab5f0fb (patch) | |
| tree | 19453acb666d8630365eb9587749dbc271ed161c /rts/Task.c | |
| parent | 4666be5d9471b8227f5e24c0b7860e84923489db (diff) | |
| download | haskell-c859d17f9b0ae8559dac4f7e5cb8521e7ab5f0fb.tar.gz | |
Merge taskId and serialisableTaskId
A companion ghc-events pachakge commit displays task ids in the same format.
Diffstat (limited to 'rts/Task.c')
| -rw-r--r-- | rts/Task.c | 22 |
1 files changed, 4 insertions, 18 deletions
diff --git a/rts/Task.c b/rts/Task.c index 3380cfdb08..78725dd41c 100644 --- a/rts/Task.c +++ b/rts/Task.c @@ -395,22 +395,6 @@ workerTaskStop (Task *task) #endif -#ifdef DEBUG -// We don't replace this function with serialisableTaskId, -// because debug prints as pointers are more readable than random -// 64-bit intergers (especially on 32-bit architectures) -// and because we want to use this function also for non-threaded RTS. -static void *taskId(Task *task) -{ -#ifdef THREADED_RTS - return (void *)(size_t)task->id; -#else - return (void *)task; -#endif -} - -#endif - #if defined(THREADED_RTS) static void OSThreadProcAttr @@ -483,7 +467,8 @@ interruptWorkerTask (Task *task) ASSERT(osThreadId() != task->id); // seppuku not allowed ASSERT(task->incall->suspended_tso); // use this only for FFI calls interruptOSThread(task->id); - debugTrace(DEBUG_sched, "interrupted worker task %p", taskId(task)); + debugTrace(DEBUG_sched, "interrupted worker task %#" FMT_HexWord64, + serialisableTaskId(task)); } #endif /* THREADED_RTS */ @@ -497,7 +482,8 @@ printAllTasks(void) { Task *task; for (task = all_tasks; task != NULL; task = task->all_next) { - debugBelch("task %p is %s, ", taskId(task), task->stopped ? "stopped" : "alive"); + debugBelch("task %#" FMT_HexWord64 " is %s, ", serialisableTaskId(task), + task->stopped ? "stopped" : "alive"); if (!task->stopped) { if (task->cap) { debugBelch("on capability %d, ", task->cap->no); |