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/Linker.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/Linker.c')
| -rw-r--r-- | rts/Linker.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 54e5049a58..1f3d8162be 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -1185,7 +1185,7 @@ void freeObjectCode (ObjectCode *oc) oc->sections[i].mapped_size); break; case SECTION_M32: - IF_DEBUG(sanity, + IF_DEBUG(zero_on_gc, memset(oc->sections[i].start, 0x00, oc->sections[i].size)); m32_free(oc->sections[i].start, @@ -1193,7 +1193,7 @@ void freeObjectCode (ObjectCode *oc) break; #endif case SECTION_MALLOC: - IF_DEBUG(sanity, + IF_DEBUG(zero_on_gc, memset(oc->sections[i].start, 0x00, oc->sections[i].size)); stgFree(oc->sections[i].start); |