CNF: Silence pointer fix-up message unless gc debugging is enabled
authorBen Gamari <ben@smart-cactus.org>
Wed, 17 May 2017 14:22:55 +0000 (10:22 -0400)
committerBen Gamari <ben@smart-cactus.org>
Sat, 20 May 2017 20:29:18 +0000 (16:29 -0400)
libraries/ghc-compact/tests/compact_serialize.stderr
rts/sm/CNF.c

index bdb018d..cec0e31 100644 (file)
@@ -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;