diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-15 00:37:47 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-15 00:37:47 +0100 |
| commit | c64a39a068f7b9d9b18417b31c7580f734c91b0e (patch) | |
| tree | aa8f69937867432ea9068d91225adb12c070985e /rts | |
| parent | 509d2ad24e377b8f9d3487ab7a3b2c3d1d936eaa (diff) | |
| download | haskell-c64a39a068f7b9d9b18417b31c7580f734c91b0e.tar.gz | |
Fix dtraceTaskCreate
The tid argument was missing
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Trace.h | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/rts/Trace.h b/rts/Trace.h index 1ff6640c74..39102d31ad 100644 --- a/rts/Trace.h +++ b/rts/Trace.h @@ -412,8 +412,8 @@ INLINE_HEADER void dtraceStartup (int num_caps) { HASKELLEVENT_SPARK_FIZZLE(cap) #define dtraceSparkGc(cap) \ HASKELLEVENT_SPARK_GC(cap) -#define dtraceTaskCreate(taskID, cap) \ - HASKELLEVENT_TASK_CREATE(taskID, cap) +#define dtraceTaskCreate(taskID, cap, tid) \ + HASKELLEVENT_TASK_CREATE(taskID, cap, tid) #define dtraceTaskMigrate(taskID, cap, new_cap) \ HASKELLEVENT_TASK_MIGRATE(taskID, cap, new_cap) #define dtraceTaskDelete(taskID) \ @@ -467,7 +467,7 @@ INLINE_HEADER void dtraceStartup (int num_caps STG_UNUSED) {}; #define dtraceSparkSteal(cap, victim_cap) /* nothing */ #define dtraceSparkFizzle(cap) /* nothing */ #define dtraceSparkGc(cap) /* nothing */ -#define dtraceTaskCreate(taskID, cap) /* nothing */ +#define dtraceTaskCreate(taskID, cap, tid) /* nothing */ #define dtraceTaskMigrate(taskID, cap, new_cap) /* nothing */ #define dtraceTaskDelete(taskID) /* nothing */ @@ -837,7 +837,9 @@ INLINE_HEADER void traceTaskCreate(Task *task STG_UNUSED, if (RTS_UNLIKELY(TRACE_sched)) { traceTaskCreate_(task, cap); } - dtraceTaskCreate(serialisableTaskId(task), (EventCapNo)cap->no); + dtraceTaskCreate(serialisableTaskId(task), + (EventCapNo)cap->no, + kernelThreadId()); } INLINE_HEADER void traceTaskMigrate(Task *task STG_UNUSED, |