summaryrefslogtreecommitdiff
path: root/rts/Trace.c
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2019-05-29 16:56:08 +0100
committerMatthew Pickering <matthewtpickering@gmail.com>2019-05-30 10:17:14 +0100
commitdb3639399db743eff1c2bde57d9219a77aa0f59a (patch)
treed44b8ffeec5bbcd3ec3271e0e124da7f8214220d /rts/Trace.c
parent2d2aa2031b9abc3bff7b5585ab4201948c8bba7d (diff)
downloadhaskell-wip/eventlog-heap-prof-end.tar.gz
Add HEAP_PROF_SAMPLE_END event to mark end of sampleswip/eventlog-heap-prof-end
This allows a user to observe how long a sampling period lasts so that the time taken can be removed from the profiling output. Fixes #16697
Diffstat (limited to 'rts/Trace.c')
-rw-r--r--rts/Trace.c7
1 files changed, 7 insertions, 0 deletions
diff --git a/rts/Trace.c b/rts/Trace.c
index 4475054509..e345377eef 100644
--- a/rts/Trace.c
+++ b/rts/Trace.c
@@ -623,6 +623,13 @@ void traceHeapProfSampleBegin(StgInt era)
}
}
+void traceHeapProfSampleEnd(StgInt era)
+{
+ if (eventlog_enabled) {
+ postHeapProfSampleEnd(era);
+ }
+}
+
void traceHeapProfSampleString(StgWord8 profile_id,
const char *label, StgWord residency)
{