diff options
author | Ben Gamari <ben@smart-cactus.org> | 2023-03-24 20:51:59 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2023-04-24 06:03:49 -0400 |
commit | c3b59aec3be9e673c106e9717ae47080b98d8a5c (patch) | |
tree | 1a2ec3d37c4941ff1475e6a50505240a9cfa68a5 | |
parent | 3c1e4a696def01b1a42d673228b7dd7be5f6cd7b (diff) | |
download | haskell-c3b59aec3be9e673c106e9717ae47080b98d8a5c.tar.gz |
rts: Relaxed load MutVar info table
-rw-r--r-- | rts/PrimOps.cmm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index d0aa154a12..e2024d32f4 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -841,7 +841,9 @@ stg_atomicModifyMutVarzuzh ( gcptr mv, gcptr f ) StgMutVar_var(mv) = z; #endif - if (GET_INFO(mv) == stg_MUT_VAR_CLEAN_info) { + W_ info; + info = %relaxed GET_INFO(mv); + if (info == stg_MUT_VAR_CLEAN_info) { ccall dirty_MUT_VAR(BaseReg "ptr", mv "ptr", x "ptr"); } |