diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-08-29 09:47:27 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-08-29 09:47:27 +0000 |
| commit | a5288c551349a0adab0d931a429b10a096d9444d (patch) | |
| tree | 245dd2dfd2b4e23f3fc8ae474b709289b60e5f15 /rts/RaiseAsync.c | |
| parent | c51229b2bfd3b1a61d3966db894210ef848f0a6d (diff) | |
| download | haskell-a5288c551349a0adab0d931a429b10a096d9444d.tar.gz | |
Unify event logging and debug tracing.
- tracing facilities are now enabled with -DTRACING, and -DDEBUG
additionally enables debug-tracing. -DEVENTLOG has been
removed.
- -debug now implies -eventlog
- events can be printed to stderr instead of being sent to the
binary .eventlog file by adding +RTS -v (which is implied by the
+RTS -Dx options).
- -Dx debug messages can be sent to the binary .eventlog file
by adding +RTS -l. This should help debugging by reducing
the impact of debug tracing on execution time.
- Various debug messages that duplicated the information in events
have been removed.
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index 4ca1cba28d..3078cf90ad 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -18,7 +18,6 @@ #include "STM.h" #include "Sanity.h" #include "Profiling.h" -#include "eventlog/EventLog.h" #if defined(mingw32_HOST_OS) #include "win32/IOManager.h" #endif @@ -162,11 +161,7 @@ throwTo (Capability *cap, // the Capability we hold (unsigned long)source->id, (unsigned long)target->id); #ifdef DEBUG - if (traceClass(DEBUG_sched)) { - debugTraceBegin("throwTo: target"); - printThreadStatus(target); - debugTraceEnd(); - } + traceThreadStatus(DEBUG_sched, target); #endif goto check_target; |