[commit: ghc] master: CNF: Silence pointer fix-up message unless gc debugging is enabled (0102e2b)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/0102e2b731d33abdff4c3cde6938d1bede8f51cb/ghc

>---------------------------------------------------------------

commit 0102e2b731d33abdff4c3cde6938d1bede8f51cb
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Wed May 17 10:22:55 2017 -0400

    CNF: Silence pointer fix-up message unless gc debugging is enabled


>---------------------------------------------------------------

0102e2b731d33abdff4c3cde6938d1bede8f51cb
 libraries/ghc-compact/tests/compact_serialize.stderr | 1 -
 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 2483efa..e69de29 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 bdb018d..cec0e31 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;