summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2023-03-25 23:39:01 -0400
committerBen Gamari <ben@smart-cactus.org>2023-03-25 23:39:01 -0400
commitb9e7a8e0a248ab433633b9751fcbaef9ce51c159 (patch)
tree8bc730878ac3ed98cb959838735edf642c8f2bf7
parent318ea2e411fef8bd2674e74b0ff1454c14713fd4 (diff)
downloadhaskell-wip/rts-warnings.tar.gz
-rw-r--r--rts/sm/NonMovingMark.c4
1 files changed, 0 insertions, 4 deletions
diff --git a/rts/sm/NonMovingMark.c b/rts/sm/NonMovingMark.c
index 26ccdc397d..c7066424f3 100644
--- a/rts/sm/NonMovingMark.c
+++ b/rts/sm/NonMovingMark.c
@@ -39,9 +39,7 @@ static void trace_PAP_payload (MarkQueue *queue,
StgClosure *fun,
StgClosure **payload,
StgWord size);
-#if defined(DEBUG)
static bool is_nonmoving_weak(StgWeak *weak);
-#endif
// How many Array# entries to add to the mark queue at once?
#define MARK_ARRAY_CHUNK_LENGTH 128
@@ -1968,7 +1966,6 @@ void nonmovingMarkWeakPtrList (struct MarkQueue_ *queue)
// Determine whether a weak pointer object is on one of the nonmoving
// collector's weak pointer lists. Used for sanity checking.
-#if defined(DEBUG)
static bool is_nonmoving_weak(StgWeak *weak)
{
for (StgWeak *w = nonmoving_old_weak_ptr_list; w != NULL; w = w->link) {
@@ -1979,7 +1976,6 @@ static bool is_nonmoving_weak(StgWeak *weak)
}
return false;
}
-#endif
// Non-moving heap variant of `tidyWeakList`
bool nonmovingTidyWeaks (struct MarkQueue_ *queue)