diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2020-02-07 07:27:22 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-08 10:29:48 -0500 |
| commit | 97d59db55e3b32861d91783c36d56e5c93f2cd19 (patch) | |
| tree | 7124b7afe4addaf2a65de827b192d72639e2f735 | |
| parent | 1183ae94a256b30bfe12ddc5e1c29d6f46abd79d (diff) | |
| download | haskell-97d59db55e3b32861d91783c36d56e5c93f2cd19.tar.gz | |
rts: Fix need_prealloc being reset when retainer profiling is on
| -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 |