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 2966e26c5a..f5bd80d5a8 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -1748,6 +1748,7 @@ loop: if (info == stg_MVAR_CLEAN_info) { // Resolve #18919. ccall dirty_MVAR(BaseReg "ptr", mvar "ptr"); + info = stg_MVAR_DIRTY_info; } } @@ -1837,6 +1838,7 @@ loop: if (info == stg_MVAR_CLEAN_info) { // Resolve #18919. ccall dirty_MVAR(BaseReg "ptr", mvar "ptr"); + info = stg_MVAR_DIRTY_info; } } diff --git a/rts/Threads.c b/rts/Threads.c index b28a696c57..949872ad17 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -793,6 +793,7 @@ loop: if (info == &stg_MVAR_CLEAN_info) { // Resolve #18919. dirty_MVAR(&cap->r, (StgClosure*)mvar); + info = &stg_MVAR_DIRTY_info; } } |