diff options
author | Ben Gamari <ben@smart-cactus.org> | 2017-05-17 10:22:55 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2017-05-20 16:29:18 -0400 |
commit | 0102e2b731d33abdff4c3cde6938d1bede8f51cb (patch) | |
tree | bda5570ec83ba964cf531c4d4a29ab346fe07391 | |
parent | 0a754e607ca40a344240925e99618c9e62c9690b (diff) | |
download | haskell-0102e2b731d33abdff4c3cde6938d1bede8f51cb.tar.gz |
CNF: Silence pointer fix-up message unless gc debugging is enabled
-rw-r--r-- | libraries/ghc-compact/tests/compact_serialize.stderr | 1 | ||||
-rw-r--r-- | rts/sm/CNF.c | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/libraries/ghc-compact/tests/compact_serialize.stderr b/libraries/ghc-compact/tests/compact_serialize.stderr index 2483efa009..e69de29bb2 100644 --- a/libraries/ghc-compact/tests/compact_serialize.stderr +++ b/libraries/ghc-compact/tests/compact_serialize.stderr @@ -1 +0,0 @@ -Compact imported at the wrong address, will fix up internal pointers diff --git a/rts/sm/CNF.c b/rts/sm/CNF.c index bdb018d036..cec0e31e43 100644 --- a/rts/sm/CNF.c +++ b/rts/sm/CNF.c @@ -1131,8 +1131,8 @@ maybe_fixup_internal_pointers (StgCompactNFDataBlock *block, if (!any_needs_fixup(block)) return root; - debugBelch("Compact imported at the wrong address, will fix up" - " internal pointers\n"); + IF_DEBUG(gc, debugBelch("Compact imported at the wrong address, " + "will fix up internal pointers\n")); // I am PROOT! proot = &root; |