diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-06-17 10:10:45 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-06-17 10:10:45 +0000 |
| commit | bb9d6c363c927899fd32d3c99bf2af4bdaeee789 (patch) | |
| tree | c436cbe5c57ad147a92854449cc11565c63e5762 /rts | |
| parent | 3e140bdf457f0c4c762ba344f396d84afef6d8f4 (diff) | |
| download | haskell-bb9d6c363c927899fd32d3c99bf2af4bdaeee789.tar.gz | |
64-bit fixes
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/PrimOps.cmm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index b635bb0fdd..a45439df04 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -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") []; } |