X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Feventlog%2FEventLog.h;h=557ee775dde3f872e0d4feeb434c57ccd29e9a39;hb=5407ad8e0a5c08ac5193c1a9ede2a12570baee0b;hp=03582563570371cbeb5689150ade9416f0174429;hpb=7d7c187b4a12f1bb350e85cdb0115e19537cc704;p=ghc-hetmet.git diff --git a/rts/eventlog/EventLog.h b/rts/eventlog/EventLog.h index 0358256..557ee77 100644 --- a/rts/eventlog/EventLog.h +++ b/rts/eventlog/EventLog.h @@ -12,9 +12,9 @@ #include "rts/EventLogFormat.h" #include "Capability.h" -#pragma GCC visibility push(hidden) +BEGIN_RTS_PRIVATE -#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 postUserMsg(Capability *cap, char *msg); + +void postCapMsg(Capability *cap, char *msg, va_list ap); + +#else /* !TRACING */ -void printAndClearEventLog(Capability *cap); +INLINE_HEADER void postSchedEvent (Capability *cap STG_UNUSED, + EventTypeNum tag STG_UNUSED, + StgThreadID id STG_UNUSED, + StgWord64 other STG_UNUSED) +{ /* nothing */ } -#else /* !EVENTLOG */ +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 +END_RTS_PRIVATE -#endif /* EVENTLOG_H */ +#endif /* TRACING_H */