[commit: ghc] master: rts: Make compact debugging output depend upon compact debug flag (a29132e)

[git at git.haskell.org]

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

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

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

commit a29132e9248e39a45673b5c146341d9f4947dacd
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Tue May 23 10:33:58 2017 -0400

    rts: Make compact debugging output depend upon compact debug flag


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

a29132e9248e39a45673b5c146341d9f4947dacd
 rts/sm/CNF.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rts/sm/CNF.c b/rts/sm/CNF.c
index cec0e31..c12f53a 100644
--- a/rts/sm/CNF.c
+++ b/rts/sm/CNF.c
@@ -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!