diff options
| author | Douglas Wilson <douglas.wilson@gmail.com> | 2022-07-12 16:04:42 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-07-16 13:25:06 -0400 |
| commit | 28347d7141761fc5c3c9bd66e5c4b2ea1c16f58a (patch) | |
| tree | b33cc2c0e4444155bcb5aee1e4e850058e4deb76 /rts/PrimOps.cmm | |
| parent | b27c2774fb8191e566bcae0ed7b06bb96afa466b (diff) | |
| download | haskell-28347d7141761fc5c3c9bd66e5c4b2ea1c16f58a.tar.gz | |
rts: forkOn context switches the target capability
Fixes #21824
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 430824e155..7b760e5702 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -1062,10 +1062,6 @@ again: MAYBE_GC(again); ccall scheduleThreadOn(MyCapability() "ptr", cpu, threadid "ptr"); - // context switch soon, but not immediately: we don't want every - // forkIO to force a context-switch. - Capability_context_switch(MyCapability()) = 1 :: CInt; - return (threadid); } |