diff options
author | Ben Gamari <ben@smart-cactus.org> | 2023-03-22 20:29:21 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2023-05-09 08:41:53 -0400 |
commit | 6b29154de6b63597553c5b69b9974c8838a7a80a (patch) | |
tree | 41dfdbc232b7421a7789f239e488a7895a8b3643 /rts | |
parent | 81cfefd2cfb9d97a19d8e543130f94248e667330 (diff) | |
download | haskell-wip/ioref-swap-xchg.tar.gz |
Make atomicSwapMutVar# an inline primopwip/ioref-swap-xchg
Diffstat (limited to 'rts')
-rw-r--r-- | rts/PrimOps.cmm | 11 | ||||
-rw-r--r-- | rts/RtsSymbols.c | 1 | ||||
-rw-r--r-- | rts/include/stg/MiscClosures.h | 1 |
3 files changed, 0 insertions, 13 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 9e86a8e0a2..60d0dc2ccc 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -689,17 +689,6 @@ stg_newMutVarzh ( gcptr init ) return (mv); } -stg_atomicSwapMutVarzh ( gcptr mv, gcptr new ) - /* MutVar# s a -> a -> State# s -> (# State#, a #) */ -{ - W_ old; - (old) = prim %xchgW(mv + SIZEOF_StgHeader + OFFSET_StgMutVar_var, new); - if (GET_INFO(mv) == stg_MUT_VAR_CLEAN_info) { - ccall dirty_MUT_VAR(BaseReg "ptr", mv "ptr", old "ptr"); - } - return (old); -} - // RRN: To support the "ticketed" approach, we return the NEW rather // than old value if the CAS is successful. This is received in an // opaque form in the Haskell code, preventing the compiler from diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c index ebf73a2b69..dee6c57f5e 100644 --- a/rts/RtsSymbols.c +++ b/rts/RtsSymbols.c @@ -633,7 +633,6 @@ extern char **environ; SymI_HasDataProto(stg_writeIOPortzh) \ SymI_HasDataProto(stg_newIOPortzh) \ SymI_HasDataProto(stg_noDuplicatezh) \ - SymI_HasDataProto(stg_atomicSwapMutVarzh) \ SymI_HasDataProto(stg_atomicModifyMutVar2zh) \ SymI_HasDataProto(stg_atomicModifyMutVarzuzh) \ SymI_HasDataProto(stg_casMutVarzh) \ diff --git a/rts/include/stg/MiscClosures.h b/rts/include/stg/MiscClosures.h index da556870f1..8e50336e4a 100644 --- a/rts/include/stg/MiscClosures.h +++ b/rts/include/stg/MiscClosures.h @@ -481,7 +481,6 @@ RTS_FUN_DECL(stg_copySmallMutableArrayzh); RTS_FUN_DECL(stg_casSmallArrayzh); RTS_FUN_DECL(stg_newMutVarzh); -RTS_FUN_DECL(stg_atomicSwapMutVarzh); RTS_FUN_DECL(stg_atomicModifyMutVar2zh); RTS_FUN_DECL(stg_atomicModifyMutVarzuzh); RTS_FUN_DECL(stg_casMutVarzh); |