Permalink
Browse files

Fix silly bug in casMutVar#: I forgot the GC write barrier

  • Loading branch information...
1 parent 8b48562 commit 606f6e1cfcb2e79abaadcc5ed643817d2a4585d8 @simonmar simonmar committed Dec 9, 2011
Showing with 3 additions and 0 deletions.
  1. +3 −0 rts/PrimOps.cmm
View
@@ -284,6 +284,9 @@ stg_casMutVarzh
if (h != old) {
RET_NP(1,h);
} else {
+ if (GET_INFO(mv) == stg_MUT_VAR_CLEAN_info) {
+ foreign "C" dirty_MUT_VAR(BaseReg "ptr", mv "ptr") [];
+ }
RET_NP(0,h);
}
}

0 comments on commit 606f6e1

Please sign in to comment.