summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2020-12-09 22:06:22 -0500
committerGHC GitLab CI <ghc-ci@gitlab-haskell.org>2020-12-10 04:29:23 +0000
commit1abaf38a174e07cc9c3f22fb5e05490219219b84 (patch)
tree032e830506aea819d746ec2cff47379028bf3eb8
parente7dbdbfadf897b246a0b7d669bb559d18030c3c6 (diff)
downloadhaskell-1abaf38a174e07cc9c3f22fb5e05490219219b84.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 02d03dc721..183c366a56 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;
}