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/Profiling.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/Profiling.c')
| -rw-r--r-- | rts/Profiling.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/rts/Profiling.c b/rts/Profiling.c index 0bb975cafc..33301a91c1 100644 --- a/rts/Profiling.c +++ b/rts/Profiling.c @@ -353,11 +353,12 @@ CostCentreStack * PushCostCentre ( CostCentreStack *ccs, CostCentre *cc ) #define PushCostCentre _PushCostCentre { - IF_DEBUG(prof, - debugBelch("Pushing %s on ", cc->label); - debugCCS(ccs); - debugBelch("\n")); - return PushCostCentre(ccs,cc); + IF_DEBUG(prof, + traceBegin("pushing %s on ", cc->label); + debugCCS(ccs); + traceEnd();); + + return PushCostCentre(ccs,cc); } #endif |