diff options
Diffstat (limited to 'rts/sm/GC.c')
| -rw-r--r-- | rts/sm/GC.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/sm/GC.c b/rts/sm/GC.c index 55e57a58b2..2911aad7a0 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -1004,9 +1004,11 @@ GarbageCollect (uint32_t collect_gen, got = mblocks_allocated; + uint32_t returned = 0; if (got > need) { - returnMemoryToOS(got - need); + returned = returnMemoryToOS(got - need); } + traceEventMemReturn(cap, got, need, returned); } // extra GC trace info |