Add a new traceMarker# primop for use in profiling output

In time-based profiling visualisations (e.g. heap profiles and ThreadScope)
it would be useful to be able to mark particular points in the execution and
have those points in time marked in the visualisation.

The traceMarker# primop currently emits an event into the eventlog. In
principle it could be extended to do something in the heap profiling too.

1 files changed, 25 insertions, 0 deletions

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 1a531b2149..fb46cee0b5 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -2034,3 +2034,28 @@ stg_traceEventzh ( W_ msg )
    return ();
 }
 
+// Same code as stg_traceEventzh above but a different kind of event
+// Before changing this code, read the comments in the impl above
+stg_traceMarkerzh ( W_ msg )
+{
+#if defined(TRACING) || defined(DEBUG)
+
+   ccall traceUserMarker(MyCapability() "ptr", msg "ptr");
+
+#elif defined(DTRACE)
+
+   W_ enabled;
+
+#if !defined(solaris2_TARGET_OS)
+   (enabled) = ccall __dtrace_isenabled$HaskellEvent$user__marker$v1();
+#else
+   enabled = 1;
+#endif
+   if (enabled != 0) {
+     ccall dtraceUserMarkerWrapper(MyCapability() "ptr", msg "ptr");
+   }
+
+#endif
+   return ();
+}
+