summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--rts/ProfHeap.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index 03c99a0d49..43bce78b76 100644
--- a/rts/ProfHeap.c
+++ b/rts/ProfHeap.c
@@ -552,8 +552,6 @@ initHeapProfiling(void)
void
endHeapProfiling(void)
{
- StgDouble seconds;
-
if (! RtsFlags.ProfFlags.doHeapProfile) {
return;
}
@@ -596,7 +594,10 @@ endHeapProfiling(void)
stgFree(censuses);
- seconds = mut_user_time();
+ RTSStats stats;
+ getRTSStats(&stats);
+ Time mut_time = stats.mutator_cpu_ns;
+ StgDouble seconds = TimeToSecondsDbl(mut_time);
printSample(true, seconds);
printSample(false, seconds);
fclose(hp_file);