Commit 606f6e1c authored by Simon Marlow's avatar Simon Marlow
Browse files

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

parent 8b48562e
......@@ -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);
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment