Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: f934258f57
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 104 lines (89 sloc) 3.74 kb
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__global__sync (EventCapNo);
  probe gc__stats (EventCapsetID, StgWord, StgWord, StgWord, StgWord, StgWord, StgWord, StgWord);
  probe heap__info (EventCapsetID, StgWord, StgWord, StgWord, StgWord, StgWord);
  probe heap__allocated (EventCapNo, EventCapsetID, StgWord64);
  probe heap__size (EventCapsetID, StgWord);
  probe heap__live (EventCapsetID, 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 *);
  probe user__marker (EventCapNo, char *);
};
Something went wrong with that request. Please try again.