X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Feventlog%2FEventLog.h;h=0f31509e68116adec05b575907e31dfc3b0bba54;hb=51b85031ce99f1e9d4c72249d6d85672188f0fbd;hp=9f3388e421da511a6f71242f5ae6c31a76a6cfd8;hpb=a5288c551349a0adab0d931a429b10a096d9444d;p=ghc-hetmet.git diff --git a/rts/eventlog/EventLog.h b/rts/eventlog/EventLog.h index 9f3388e..0f31509 100644 --- a/rts/eventlog/EventLog.h +++ b/rts/eventlog/EventLog.h @@ -12,7 +12,7 @@ #include "rts/EventLogFormat.h" #include "Capability.h" -#pragma GCC visibility push(hidden) +#include "BeginPrivate.h" #ifdef TRACING @@ -26,16 +26,22 @@ void endEventLogging(void); void freeEventLogging(void); /* - * 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 postCapMsg(Capability *cap, char *msg, va_list ap); +void postUserMsg(Capability *cap, char *msg, va_list ap); -void printAndClearEventLog(Capability *cap); +void postCapMsg(Capability *cap, char *msg, va_list ap); #else /* !TRACING */ @@ -45,17 +51,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 -#pragma GCC visibility pop +#include "EndPrivate.h" #endif /* TRACING_H */