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/eventlog/EventLog.h | |
parent | 58339b06aff704834e8553faaa2db00d746b26f3 (diff) | |
download | haskell-58532eb46041aec8d4cbb48b054cb5b001edb43c.tar.gz |
Add capability sets to the event system. Contains code from Duncan Coutts.
Diffstat (limited to 'rts/eventlog/EventLog.h')
-rw-r--r-- | rts/eventlog/EventLog.h | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/rts/eventlog/EventLog.h b/rts/eventlog/EventLog.h index 0cfab5c091..26a2e944bf 100644 --- a/rts/eventlog/EventLog.h +++ b/rts/eventlog/EventLog.h @@ -35,6 +35,29 @@ void postSchedEvent(Capability *cap, EventTypeNum tag, StgThreadID id, StgWord info1, StgWord info2); /* + * Post a capability set modification event + */ +void postCapsetModifyEvent (EventTypeNum tag, + EventCapsetID capset, + StgWord32 other, + StgWord32 other2); + +/* + * Post a capability set event with a string payload + */ +void postCapsetStrEvent (EventTypeNum tag, + EventCapsetID capset, + char *msg); + +/* + * Post a capability set event with several strings payload + */ +void postCapsetVecEvent (EventTypeNum tag, + EventCapsetID capset, + int argc, + char *msg[]); + +/* * Post a nullary event. */ void postEvent(Capability *cap, EventTypeNum tag); @@ -54,6 +77,12 @@ INLINE_HEADER void postSchedEvent (Capability *cap STG_UNUSED, StgWord info2 STG_UNUSED) { /* nothing */ } +INLINE_HEADER void postCapsetModifyEvent (EventTypeNum tag STG_UNUSED, + EventCapsetID capset STG_UNUSED, + StgWord32 other STG_UNUSED, + StgWord32 other2 STG_UNUSED) +{ /* nothing */ } + INLINE_HEADER void postEvent (Capability *cap STG_UNUSED, EventTypeNum tag STG_UNUSED) { /* nothing */ } |