diff options
| author | Spencer Janssen <spencer@well-typed.com> | 2011-04-14 01:11:05 -0500 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-05-18 11:14:27 +0100 |
| commit | 58532eb46041aec8d4cbb48b054cb5b001edb43c (patch) | |
| tree | 1fd878273e11b04045e48178acc8eaacd2ccace9 /rts/RtsProbes.d | |
| parent | 58339b06aff704834e8553faaa2db00d746b26f3 (diff) | |
| download | haskell-58532eb46041aec8d4cbb48b054cb5b001edb43c.tar.gz | |
Add capability sets to the event system. Contains code from Duncan Coutts.
Diffstat (limited to 'rts/RtsProbes.d')
| -rw-r--r-- | rts/RtsProbes.d | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/rts/RtsProbes.d b/rts/RtsProbes.d index dbc5111e46..bd32fca385 100644 --- a/rts/RtsProbes.d +++ b/rts/RtsProbes.d @@ -23,6 +23,8 @@ * 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 */ /* ----------------------------------------------------------------------------- @@ -60,5 +62,9 @@ provider HaskellEvent { probe gc__idle (EventCapNo); probe gc__work (EventCapNo); probe gc__done (EventCapNo); + probe capset__create(EventCapsetID, EventCapsetType); + probe capset__delete(EventCapsetID); + probe capset__assign__cap(EventCapsetID, EventCapNo); + probe capset__remove__cap(EventCapsetID, EventCapNo); }; |