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

64-bit fixes

parent 3e140bdf
......@@ -1587,7 +1587,7 @@ takeMVarzh_fast
tso = StgMVar_head(mvar);
PerformPut(tso,StgMVar_value(mvar));
if (StgTSO_flags(tso) & TSO_DIRTY::I32 == 0) {
if (TO_W_(StgTSO_flags(tso)) & TSO_DIRTY == 0) {
foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") [];
}
......@@ -1663,7 +1663,7 @@ tryTakeMVarzh_fast
/* actually perform the putMVar for the thread that we just woke up */
tso = StgMVar_head(mvar);
PerformPut(tso,StgMVar_value(mvar));
if (StgTSO_flags(tso) & TSO_DIRTY::I32 == 0) {
if (TO_W_(StgTSO_flags(tso)) & TSO_DIRTY == 0) {
foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") [];
}
......@@ -1737,7 +1737,7 @@ putMVarzh_fast
/* actually perform the takeMVar */
tso = StgMVar_head(mvar);
PerformTake(tso, R2);
if (StgTSO_flags(tso) & TSO_DIRTY::I32 == 0) {
if (TO_W_(StgTSO_flags(tso)) & TSO_DIRTY == 0) {
foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") [];
}
......@@ -1806,7 +1806,7 @@ tryPutMVarzh_fast
/* actually perform the takeMVar */
tso = StgMVar_head(mvar);
PerformTake(tso, R2);
if (StgTSO_flags(tso) & TSO_DIRTY::I32 == 0) {
if (TO_W_(StgTSO_flags(tso)) & TSO_DIRTY == 0) {
foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") [];
}
......
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