1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
/* -----------------------------------------------------------------------------
*
* (c) The GHC Team, 2009
*
* User-space dtrace probes for the runtime system.
*
* ---------------------------------------------------------------------------*/
#include "HsFFI.h"
#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;
* typedef uint32_t EventCapsetID;
* typedef uint16_t EventCapsetType; // types for EVENT_CAPSET_CREATE
*/
/* -----------------------------------------------------------------------------
* 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 */
probe create__thread (EventCapNo, EventThreadID);
probe run__thread (EventCapNo, EventThreadID);
probe stop__thread (EventCapNo, EventThreadID, EventThreadStatus, EventThreadID);
probe thread__runnable (EventCapNo, EventThreadID);
probe migrate__thread (EventCapNo, EventThreadID, EventCapNo);
probe thread_wakeup (EventCapNo, EventThreadID, EventCapNo);
probe create__spark__thread (EventCapNo, EventThreadID);
probe thread__label (EventCapNo, EventThreadID, char *);
/* GC and heap events */
probe gc__start (EventCapNo);
probe gc__end (EventCapNo);
probe request__seq__gc (EventCapNo);
probe request__par__gc (EventCapNo);
probe gc__idle (EventCapNo);
probe gc__work (EventCapNo);
probe gc__done (EventCapNo);
probe gc__sync (EventCapNo);
/* FIXME: leads to a validate failure on OS X (Lion)
probe gc__stats (CapsetID, StgWord, StgWord, StgWord, StgWord, StgWord, StgWord, StgWord);
probe heap__info (CapsetID, StgWord, StgWord, StgWord, StgWord, StgWord);
probe heap__allocated (EventCapNo, CapsetID, StgWord64);
probe heap__size (CapsetID, StgWord);
probe heap__live (CapsetID, StgWord);
*/
/* capability events */
probe startup (EventCapNo);
probe cap__create (EventCapNo);
probe cap__delete (EventCapNo);
probe cap__enable (EventCapNo);
probe cap__disable (EventCapNo);
/* capset info events */
probe capset__create(EventCapsetID, EventCapsetType);
probe capset__delete(EventCapsetID);
probe capset__assign__cap(EventCapsetID, EventCapNo);
probe capset__remove__cap(EventCapsetID, EventCapNo);
/* spark events */
probe spark__counters(EventCapNo,
StgWord, StgWord, StgWord,
StgWord, StgWord, StgWord,
StgWord);
probe spark__create (EventCapNo);
probe spark__dud (EventCapNo);
probe spark__overflow (EventCapNo);
probe spark__run (EventCapNo);
probe spark__steal (EventCapNo, EventCapNo);
probe spark__fizzle (EventCapNo);
probe spark__gc (EventCapNo);
/* task events */
probe task__create(EventTaskId, EventCapNo, EventKernelThreadId);
probe task__migrate(EventTaskId, EventCapNo, EventCapNo);
probe task__delete(EventTaskId);
/* other events */
/* This one doesn't seem to be used at all at the moment: */
/* probe log__msg (char *); */
/* we don't need EVENT_BLOCK_MARKER with dtrace */
probe user__msg (EventCapNo, char *);
};
|
