rts: Make compact debugging output depend upon compact debug flag
authorBen Gamari <ben@smart-cactus.org>
Tue, 23 May 2017 14:33:58 +0000 (10:33 -0400)
committerBen Gamari <ben@smart-cactus.org>
Tue, 23 May 2017 14:57:29 +0000 (10:57 -0400)
rts/sm/CNF.c

index cec0e31..c12f53a 100644 (file)
@@ -1131,7 +1131,7 @@ maybe_fixup_internal_pointers (StgCompactNFDataBlock *block,
     if (!any_needs_fixup(block))
         return root;
 
-    IF_DEBUG(gc, debugBelch("Compact imported at the wrong address, "
+    IF_DEBUG(compact, debugBelch("Compact imported at the wrong address, "
                             "will fix up internal pointers\n"));
 
     // I am PROOT!