diff options
| -rw-r--r-- | rts/PrimOps.cmm | 2 | ||||
| -rw-r--r-- | rts/Threads.c | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 7ee77c7216..c5b232f09d 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -1834,6 +1834,7 @@ loop: // Resolve #18919. ccall dirty_MVAR(BaseReg "ptr", mvar "ptr", StgMVar_value(mvar) "ptr"); + info = stg_MVAR_DIRTY_info; } } @@ -1924,6 +1925,7 @@ loop: // Resolve #18919. ccall dirty_MVAR(BaseReg "ptr", mvar "ptr", StgMVar_value(mvar) "ptr"); + info = stg_MVAR_DIRTY_info; } } diff --git a/rts/Threads.c b/rts/Threads.c index 39616655ab..2560a4d765 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -810,6 +810,7 @@ loop: if (info == &stg_MVAR_CLEAN_info) { // Resolve #18919. dirty_MVAR(&cap->r, (StgClosure*)mvar, mvar->value); + info = &stg_MVAR_DIRTY_info; } } |