summaryrefslogtreecommitdiff
path: root/rts
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2020-12-21 21:23:00 -0500
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-01-17 05:48:01 -0500
commitbe3b6b57d1b77433c4d1d7bc2fa61cd95761877d (patch)
treeabe34af8c5524903f33fb8bb9160ba5e393bcd8d /rts
parent66e281fba605dd650d7c2530ab8a482bb79538cb (diff)
downloadhaskell-be3b6b57d1b77433c4d1d7bc2fa61cd95761877d.tar.gz
rts/eventlog: Reset ticky counters after dumping sample
Diffstat (limited to 'rts')
-rw-r--r--rts/eventlog/EventLog.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c
index 6c7d1e836c..8aeea789e6 100644
--- a/rts/eventlog/EventLog.c
+++ b/rts/eventlog/EventLog.c
@@ -1524,6 +1524,10 @@ static void postTickyCounterSample(EventsBuf *eb, StgEntCounter *p)
postWord64(eb, p->entry_count);
postWord64(eb, p->allocs);
postWord64(eb, p->allocd);
+
+ p->entry_count = 0;
+ p->allocs = 0;
+ p->allocd = 0;
}
void postTickyCounterSamples(StgEntCounter *counters)