[commit: ghc] ghc-8.2: CNF: Silence pointer fix-up message unless gc debugging is enabled (4bf470c)

[git at git.haskell.org]

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

On branch  : ghc-8.2
Link       : http://ghc.haskell.org/trac/ghc/changeset/4bf470c66dd409b3c8734549762d798eb3c64cde/ghc

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

commit 4bf470c66dd409b3c8734549762d798eb3c64cde
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
    
    (cherry picked from commit 0102e2b731d33abdff4c3cde6938d1bede8f51cb)


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

4bf470c66dd409b3c8734549762d798eb3c64cde
 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 fbebfab..3892132 100644
--- a/rts/sm/CNF.c
+++ b/rts/sm/CNF.c
@@ -1125,8 +1125,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;