diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-05-23 10:33:58 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-05-23 10:57:29 -0400 |
| commit | a29132e9248e39a45673b5c146341d9f4947dacd (patch) | |
| tree | 8f76b85afb4ea35b503dca3da57f152618cd3f9b | |
| parent | 6166b59fadb8714cd497902c8469fd2b3b6caf46 (diff) | |
| download | haskell-a29132e9248e39a45673b5c146341d9f4947dacd.tar.gz | |
rts: Make compact debugging output depend upon compact debug flag
| -rw-r--r-- | rts/sm/CNF.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/CNF.c b/rts/sm/CNF.c index cec0e31e43..c12f53a120 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! |