X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Feventlog%2FEventLog.h;h=7dc249d35de8b67450bc5dc1682acec8ce284ac1;hb=d8334d807812e40f67770ffc37608c0ce66f96b2;hp=364d12a3a60dd4a6ba0d13bceaaf5d6f0268bfe6;hpb=d71615757d0462b1721ee3664c5fa9f79325d666;p=ghc-hetmet.git diff --git a/rts/eventlog/EventLog.h b/rts/eventlog/EventLog.h index 364d12a..7dc249d 100644 --- a/rts/eventlog/EventLog.h +++ b/rts/eventlog/EventLog.h @@ -12,7 +12,7 @@ #include "rts/EventLogFormat.h" #include "Capability.h" -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" #ifdef TRACING @@ -24,15 +24,25 @@ extern char *EventTagDesc[]; void initEventLogging(void); void endEventLogging(void); void freeEventLogging(void); +void abortEventLogging(void); // #4512 - after fork child needs to abort +void flushEventLog(void); // event log inherited from parent /* - * Post an event to the capability's event buffer. + * Post a scheduler event to the capability's event buffer (an event + * that has an associated thread). */ void postSchedEvent(Capability *cap, EventTypeNum tag, StgThreadID id, StgWord64 other); +/* + * Post a nullary event. + */ +void postEvent(Capability *cap, EventTypeNum tag); + void postMsg(char *msg, va_list ap); +void postUserMsg(Capability *cap, char *msg, va_list ap); + void postCapMsg(Capability *cap, char *msg, va_list ap); #else /* !TRACING */ @@ -43,17 +53,21 @@ INLINE_HEADER void postSchedEvent (Capability *cap STG_UNUSED, StgWord64 other STG_UNUSED) { /* nothing */ } +INLINE_HEADER void postEvent (Capability *cap STG_UNUSED, + EventTypeNum tag STG_UNUSED) +{ /* nothing */ } + INLINE_HEADER void postMsg (char *msg STG_UNUSED, va_list ap STG_UNUSED) { /* nothing */ } -INLINE_HEADER void postCapMsg (Capability *cap, +INLINE_HEADER void postCapMsg (Capability *cap STG_UNUSED, char *msg STG_UNUSED, va_list ap STG_UNUSED) { /* nothing */ } #endif -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* TRACING_H */