diff options
author | Tobias Guggenmos <tguggenm@redhat.com> | 2019-09-07 15:32:06 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-10-03 12:17:33 -0400 |
commit | 47386fe85a412c8aa35f6bcbce0d41f0eed03b65 (patch) | |
tree | eb269c7dd0f13ee5803d22a6bd5009596bcda17b /rts/sm/Storage.c | |
parent | ee6324adfed737fbf9ca3c36538145542b425617 (diff) | |
download | haskell-47386fe85a412c8aa35f6bcbce0d41f0eed03b65.tar.gz |
Add new debug flag -DZ
Zeros heap memory after gc freed it.
Diffstat (limited to 'rts/sm/Storage.c')
-rw-r--r-- | rts/sm/Storage.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index 3f91905f3c..d4be531c73 100644 --- a/rts/sm/Storage.c +++ b/rts/sm/Storage.c @@ -650,7 +650,7 @@ resetNurseries (void) ASSERT(bd->gen_no == 0); ASSERT(bd->gen == g0); ASSERT(bd->node == capNoToNumaNode(n)); - IF_DEBUG(sanity, memset(bd->start, 0xaa, BLOCK_SIZE)); + IF_DEBUG(zero_on_gc, memset(bd->start, 0xaa, BLOCK_SIZE)); } } #endif |