summaryrefslogtreecommitdiff
path: root/rts/sm
diff options
context:
space:
mode:
authorÖmer Sinan Ağacan <omeragacan@gmail.com>2019-05-28 10:46:41 +0300
committerMarge Bot <ben+marge-bot@smart-cactus.org>2019-05-29 10:41:44 -0400
commit4d51e0d80f02483e86f4ad3bae47dcb3311def6b (patch)
treebf9d323606e89d2f25b7d7e15c1d3ed85d933089 /rts/sm
parentfb26d46754564bfacda98618d86d3ee4eda1fcf2 (diff)
downloadhaskell-4d51e0d80f02483e86f4ad3bae47dcb3311def6b.tar.gz
CNF.c: Move debug functions behind ifdef
Diffstat (limited to 'rts/sm')
-rw-r--r--rts/sm/CNF.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/CNF.c b/rts/sm/CNF.c
index 8d0ebccaf3..d0447f867c 100644
--- a/rts/sm/CNF.c
+++ b/rts/sm/CNF.c
@@ -281,6 +281,7 @@ compactFree(StgCompactNFData *str)
}
}
+#if defined(DEBUG)
void
compactMarkKnown(StgCompactNFData *str)
{
@@ -319,7 +320,6 @@ countCompactBlocks(bdescr *outer)
return count;
}
-#if defined(DEBUG)
// Like countCompactBlocks, but adjusts the size so each mblock is assumed to
// only contain BLOCKS_PER_MBLOCK blocks. Used in memInventory().
StgWord