diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-09-25 15:02:43 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-09-25 15:02:43 +0000 |
| commit | 5407ad8e0a5c08ac5193c1a9ede2a12570baee0b (patch) | |
| tree | 0676ae90bb68e88ad42fd05a0c0282cd48c8b140 /rts/Trace.h | |
| parent | e43a5e498520b933a0d9f4c7e9ddfb7ed2032cfd (diff) | |
| download | haskell-5407ad8e0a5c08ac5193c1a9ede2a12570baee0b.tar.gz | |
Add a way to generate tracing events programmatically
added:
primop TraceEventOp "traceEvent#" GenPrimOp
Addr# -> State# s -> State# s
{ Emits an event via the RTS tracing framework. The contents
of the event is the zero-terminated byte string passed as the first
argument. The event will be emitted either to the .eventlog file,
or to stderr, depending on the runtime RTS flags. }
and added the required RTS functionality to support it. Also a bit of
refactoring in the RTS tracing code.
Diffstat (limited to 'rts/Trace.h')
| -rw-r--r-- | rts/Trace.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/rts/Trace.h b/rts/Trace.h index 775f235773..f422b5f8a5 100644 --- a/rts/Trace.h +++ b/rts/Trace.h @@ -104,6 +104,11 @@ void traceCap_(Capability *cap, char *msg, ...); void trace_(char *msg, ...); /* + * A message or event emitted by the program + */ +void traceUserMsg(Capability *cap, char *msg); + +/* * Emit a debug message (only when DEBUG is defined) */ #ifdef DEBUG |