[commit: ghc] ghc-8.2: rts: Make compact debugging output depend upon compact debug flag (367ad4c)

[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/367ad4c0500759e5e8d4459caed872da0148b381/ghc

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

commit 367ad4c0500759e5e8d4459caed872da0148b381
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
    
    (cherry picked from commit a29132e9248e39a45673b5c146341d9f4947dacd)


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

367ad4c0500759e5e8d4459caed872da0148b381
 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 3892132..edb547f 100644
--- a/rts/sm/CNF.c
+++ b/rts/sm/CNF.c
@@ -1125,7 +1125,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!