Cleanup sweep and fix a bug in RTS flag processing.
[ghc.git] / rts / RtsProbes.d
1 /* -----------------------------------------------------------------------------
2  *
3  * (c) The GHC Team, 2009
4  *
5  * User-space dtrace probes for the runtime system.
6  *
7  * ---------------------------------------------------------------------------*/
8
9 #include "HsFFI.h"
10 #include "rts/EventLogFormat.h"
11
12
13 /* -----------------------------------------------------------------------------
14  * Payload datatypes for Haskell events
15  * -----------------------------------------------------------------------------
16  */
17
18 /* We effectively have:
19  *
20  * typedef uint16_t EventTypeNum;
21  * typedef uint64_t EventTimestamp;   // in nanoseconds
22  * typedef uint32_t EventThreadID;
23  * typedef uint16_t EventCapNo;
24  * typedef uint16_t EventPayloadSize; // variable-size events
25  * typedef uint16_t EventThreadStatus;
26  */
27
28 /* -----------------------------------------------------------------------------
29  * The HaskellEvent provider captures everything from eventlog for use with
30  * dtrace
31  * -----------------------------------------------------------------------------
32  */
33
34 /* These probes correspond to the events defined in EventLogFormat.h
35  */
36 provider HaskellEvent {
37
38   /* scheduler events */
39   probe create__thread (EventCapNo, EventThreadID);
40   probe run__thread (EventCapNo, EventThreadID);
41   probe stop__thread (EventCapNo, EventThreadID, EventThreadStatus, EventThreadID);
42   probe thread__runnable (EventCapNo, EventThreadID);
43   probe migrate__thread (EventCapNo, EventThreadID, EventCapNo);
44   probe run__spark (EventCapNo, EventThreadID);
45   probe steal__spark (EventCapNo, EventThreadID, EventCapNo);
46   probe shutdown (EventCapNo);
47   probe thread_wakeup (EventCapNo, EventThreadID, EventCapNo);
48   probe gc__start (EventCapNo);
49   probe gc__end (EventCapNo);
50   probe request__seq__gc (EventCapNo);
51   probe request__par__gc (EventCapNo);
52   probe create__spark__thread (EventCapNo, EventThreadID);
53
54   /* other events */
55 /* This one doesn't seem to be used at all at the moment: */
56 /*  probe log__msg (char *); */
57   probe startup (EventCapNo);
58   /* we don't need EVENT_BLOCK_MARKER with dtrace */
59   probe user__msg (EventCapNo, char *);
60   probe gc__idle (EventCapNo);
61   probe gc__work (EventCapNo);
62   probe gc__done (EventCapNo);
63
64 };