diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-06-08 14:42:10 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-06-08 14:42:10 +0000 |
| commit | 5a2769f0273dd389977e8283375e7920d183bdd4 (patch) | |
| tree | cc5ffb1521eca3fb4f8c59ba649c8c16b852f125 /rts/RtsStartup.c | |
| parent | 3f10646cfe2c3409056a49d1ef1c4507af522573 (diff) | |
| download | haskell-5a2769f0273dd389977e8283375e7920d183bdd4.tar.gz | |
New tracing interface
A simple interface for generating trace messages with timestamps and
thread IDs attached to them. Most debugging output goes through this
interface now, so it is straightforward to get timestamped debugging
traces with +RTS -vt. Also, we plan to use this to generate
parallelism profiles from the trace output.
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 71978007f3..0406ae6f09 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -27,6 +27,7 @@ #include "Linker.h" #include "ThreadLabels.h" #include "BlockAlloc.h" +#include "Trace.h" #if defined(RTS_GTK_FRONTPANEL) #include "FrontPanel.h" @@ -161,6 +162,9 @@ hs_init(int *argc, char **argv[]) setProgArgv(*argc,*argv); } + /* initTracing must be after setupRtsFlags() */ + initTracing(); + #if defined(PAR) /* NB: this really must be done after processing the RTS flags */ IF_PAR_DEBUG(verbose, |