diff options
| -rw-r--r-- | rts/sm/GC.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/GC.c b/rts/sm/GC.c index aac8d974ae..526c84f411 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -874,7 +874,7 @@ GarbageCollect (uint32_t collect_gen, need_prealloc += arenaBlocks(); #if defined(PROFILING) if (RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_RETAINER) { - need_prealloc = retainerStackBlocks(); + need_prealloc += retainerStackBlocks(); } #endif |