summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2020-12-09 22:06:22 -0500
committerBen Gamari <ben@well-typed.com>2020-12-20 21:05:13 -0500
commit19823708258224266e75b0236719313b9022aba4 (patch)
tree2f2ec5e2ac325c5758de43232557ed24957bb4e8
parentb4508bd6f8b6492d2e74053d7338980109174861 (diff)
downloadhaskell-19823708258224266e75b0236719313b9022aba4.tar.gz
nonmoving: Fix small CPP bug
Previously an incorrect semicolon meant that we would fail to call busy_wait_nop when spinning.
-rw-r--r--rts/sm/NonMovingMark.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/sm/NonMovingMark.c b/rts/sm/NonMovingMark.c
index d1b625f7e3..f6272282a8 100644
--- a/rts/sm/NonMovingMark.c
+++ b/rts/sm/NonMovingMark.c
@@ -737,9 +737,11 @@ void updateRemembSetPushStack(Capability *cap, StgStack *stack)
// The concurrent GC has claimed the right to mark the stack.
// Wait until it finishes marking before proceeding with
// mutation.
- while (needs_upd_rem_set_mark((StgClosure *) stack));
+ while (needs_upd_rem_set_mark((StgClosure *) stack))
#if defined(PARALLEL_GC)
busy_wait_nop(); // TODO: Spinning here is unfortunate
+#else
+ ;
#endif
return;
}