summaryrefslogtreecommitdiff
path: root/rts/sm/NonMovingAllocate.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/sm/NonMovingAllocate.c')
-rw-r--r--rts/sm/NonMovingAllocate.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/sm/NonMovingAllocate.c b/rts/sm/NonMovingAllocate.c
index c826a0ff3a..f6d2621f23 100644
--- a/rts/sm/NonMovingAllocate.c
+++ b/rts/sm/NonMovingAllocate.c
@@ -253,5 +253,9 @@ void *nonmovingAllocateGC(Capability *cap, StgWord sz)
GNUC_ATTR_HOT
void *nonmovingAllocate(Capability *cap, StgWord sz)
{
+ // Handle "bytes allocated" accounting in the same way we
+ // do in Storage.c:allocate. See #23312.
+ accountAllocation(cap, sz);
+ cap->total_allocated += sz;
return nonmovingAllocate_(SM_LOCK, cap, sz);
}