Commit a5b95b1f authored by Simon Marlow's avatar Simon Marlow
Browse files

oops, fix more register clobberage

fixes crash with -threaded -debug for me
parent 366614a9
...@@ -1740,7 +1740,7 @@ putMVarzh_fast ...@@ -1740,7 +1740,7 @@ putMVarzh_fast
/* actually perform the takeMVar */ /* actually perform the takeMVar */
tso = StgMVar_head(mvar); tso = StgMVar_head(mvar);
PerformTake(tso, R2); PerformTake(tso, val);
if (TO_W_(StgTSO_flags(tso)) & TSO_DIRTY == 0) { if (TO_W_(StgTSO_flags(tso)) & TSO_DIRTY == 0) {
foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") []; foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") [];
} }
...@@ -1763,7 +1763,7 @@ putMVarzh_fast ...@@ -1763,7 +1763,7 @@ putMVarzh_fast
else else
{ {
/* No further takes, the MVar is now full. */ /* No further takes, the MVar is now full. */
StgMVar_value(mvar) = R2; StgMVar_value(mvar) = val;
#if defined(THREADED_RTS) #if defined(THREADED_RTS)
unlockClosure(mvar, stg_MVAR_DIRTY_info); unlockClosure(mvar, stg_MVAR_DIRTY_info);
......
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