diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2019-10-09 14:32:13 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2019-10-16 11:03:18 +0100 |
| commit | 0ce834af05a0d994ba991d61800124093fa878dd (patch) | |
| tree | 653eee37cf616b943fd9f8f0f45e1aceb95270af /rts/ProfHeap.c | |
| parent | 1357d02380641ba33b05eb87c80e6a4250cd4a3b (diff) | |
| download | haskell-wip/ccs-sample-events.tar.gz | |
eventlog: Dump cost centre stack on each samplewip/ccs-sample-events
With this change it is possible to reconstruct the timing portion of a
`.prof` file after the fact. By logging the stacks at each time point
a more precise executation trace of the program can be observed rather
than all identical cost centres being identified in the report.
There are two new events:
1. `EVENT_PROF_BEGIN` - emitted at the start of profiling to communicate
the tick interval
2. `EVENT_PROF_SAMPLE_COST_CENTRE` - emitted on each tick to communicate the
current call stack.
Fixes #17322
Diffstat (limited to 'rts/ProfHeap.c')
| -rw-r--r-- | rts/ProfHeap.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c index 77e0e6962a..c35b4bae4e 100644 --- a/rts/ProfHeap.c +++ b/rts/ProfHeap.c @@ -341,18 +341,6 @@ printSample(bool beginSample, StgDouble sampleValue) } } -static void -dumpCostCentresToEventLog(void) -{ -#if defined(PROFILING) - CostCentre *cc, *next; - for (cc = CC_LIST; cc != NULL; cc = next) { - next = cc->link; - traceHeapProfCostCentre(cc->ccID, cc->label, cc->module, - cc->srcloc, cc->is_caf); - } -#endif -} void freeHeapProfiling (void) { @@ -466,7 +454,6 @@ initHeapProfiling(void) #endif traceHeapProfBegin(0); - dumpCostCentresToEventLog(); } void |