summaryrefslogtreecommitdiff
path: root/rts/RtsProbes.d
diff options
context:
space:
mode:
authorKarel Gardas <karel.gardas@centrum.cz>2011-01-12 05:18:29 +0000
committerKarel Gardas <karel.gardas@centrum.cz>2011-01-12 05:18:29 +0000
commitff7ee297b541101f930edf1a1c0a8323f49ccd5b (patch)
treeb41196e3b6e977caac1abb62751c6c031d6a85af /rts/RtsProbes.d
parenta914a2249f13e36695060084465e97c2174ab71d (diff)
downloadhaskell-ff7ee297b541101f930edf1a1c0a8323f49ccd5b.tar.gz
replace C++ comments with C comments (Solaris' DTrace fails on C++ comments)
Diffstat (limited to 'rts/RtsProbes.d')
-rw-r--r--rts/RtsProbes.d54
1 files changed, 28 insertions, 26 deletions
diff --git a/rts/RtsProbes.d b/rts/RtsProbes.d
index 6312c43362..dbc5111e46 100644
--- a/rts/RtsProbes.d
+++ b/rts/RtsProbes.d
@@ -10,30 +10,32 @@
#include "rts/EventLogFormat.h"
-// -----------------------------------------------------------------------------
-// Payload datatypes for Haskell events
-// -----------------------------------------------------------------------------
-
-// We effectively have:
-//
-// typedef uint16_t EventTypeNum;
-// typedef uint64_t EventTimestamp; // in nanoseconds
-// typedef uint32_t EventThreadID;
-// typedef uint16_t EventCapNo;
-// typedef uint16_t EventPayloadSize; // variable-size events
-// typedef uint16_t EventThreadStatus;
-
-
-// -----------------------------------------------------------------------------
-// The HaskellEvent provider captures everything from eventlog for use with
-// dtrace
-// -----------------------------------------------------------------------------
-
-// These probes correspond to the events defined in EventLogFormat.h
-//
+/* -----------------------------------------------------------------------------
+ * Payload datatypes for Haskell events
+ * -----------------------------------------------------------------------------
+ */
+
+/* We effectively have:
+ *
+ * typedef uint16_t EventTypeNum;
+ * typedef uint64_t EventTimestamp; // in nanoseconds
+ * typedef uint32_t EventThreadID;
+ * typedef uint16_t EventCapNo;
+ * typedef uint16_t EventPayloadSize; // variable-size events
+ * typedef uint16_t EventThreadStatus;
+ */
+
+/* -----------------------------------------------------------------------------
+ * The HaskellEvent provider captures everything from eventlog for use with
+ * dtrace
+ * -----------------------------------------------------------------------------
+ */
+
+/* These probes correspond to the events defined in EventLogFormat.h
+ */
provider HaskellEvent {
- // scheduler events
+ /* scheduler events */
probe create__thread (EventCapNo, EventThreadID);
probe run__thread (EventCapNo, EventThreadID);
probe stop__thread (EventCapNo, EventThreadID, EventThreadStatus, EventThreadID);
@@ -49,11 +51,11 @@ provider HaskellEvent {
probe request__par__gc (EventCapNo);
probe create__spark__thread (EventCapNo, EventThreadID);
- // other events
-//This one doesn't seem to be used at all at the moment:
-// probe log__msg (char *);
+ /* other events */
+/* This one doesn't seem to be used at all at the moment: */
+/* probe log__msg (char *); */
probe startup (EventCapNo);
- // we don't need EVENT_BLOCK_MARKER with dtrace
+ /* we don't need EVENT_BLOCK_MARKER with dtrace */
probe user__msg (EventCapNo, char *);
probe gc__idle (EventCapNo);
probe gc__work (EventCapNo);