X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Feventlog%2FEventLog.h;fp=rts%2Feventlog%2FEventLog.h;h=9f3388e421da511a6f71242f5ae6c31a76a6cfd8;hb=a5288c551349a0adab0d931a429b10a096d9444d;hp=03582563570371cbeb5689150ade9416f0174429;hpb=c51229b2bfd3b1a61d3966db894210ef848f0a6d;p=ghc-hetmet.git diff --git a/rts/eventlog/EventLog.h b/rts/eventlog/EventLog.h index 0358256..9f3388e 100644 --- a/rts/eventlog/EventLog.h +++ b/rts/eventlog/EventLog.h @@ -14,7 +14,7 @@ #pragma GCC visibility push(hidden) -#ifdef EVENTLOG +#ifdef TRACING /* * Descriptions of EventTags for events. @@ -25,32 +25,37 @@ void initEventLogging(void); void endEventLogging(void); void freeEventLogging(void); -void postEvent_(Capability *cap, EventTypeNum tag, StgThreadID id, StgWord64 other); - /* * Post an event to the capability's event buffer. */ -INLINE_HEADER void postEvent(Capability *cap, EventTypeNum tag, StgThreadID id, StgWord64 other) -{ - if (RtsFlags.EventLogFlags.doEventLogging) { - postEvent_(cap, tag, id, other); - } -} +void postSchedEvent(Capability *cap, EventTypeNum tag, + StgThreadID id, StgWord64 other); + +void postMsg(char *msg, va_list ap); + +void postCapMsg(Capability *cap, char *msg, va_list ap); void printAndClearEventLog(Capability *cap); -#else /* !EVENTLOG */ +#else /* !TRACING */ + +INLINE_HEADER void postSchedEvent (Capability *cap STG_UNUSED, + EventTypeNum tag STG_UNUSED, + StgThreadID id STG_UNUSED, + StgWord64 other STG_UNUSED) +{ /* nothing */ } + +INLINE_HEADER void postMsg (char *msg STG_UNUSED, + va_list ap STG_UNUSED) +{ /* nothing */ } -INLINE_HEADER void postEvent(Capability *cap STG_UNUSED, - EventTypeNum tag STG_UNUSED, - StgThreadID id STG_UNUSED, - StgWord64 other STG_UNUSED) -{ - /* nothing */ -} +INLINE_HEADER void postCapMsg (Capability *cap, + char *msg STG_UNUSED, + va_list ap STG_UNUSED) +{ /* nothing */ } #endif #pragma GCC visibility pop -#endif /* EVENTLOG_H */ +#endif /* TRACING_H */