diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-06-03 03:26:25 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-06-03 03:26:25 +0000 |
| commit | 37eae200f271bd28a6172cbbea982455626336e8 (patch) | |
| tree | cc14b17c6e371d1059dae8f77927c36a57d7c6a9 /rts/PrimOps.cmm | |
| parent | 680e2ddc6abcebb3f7d39581d616950b85b33bca (diff) | |
| download | haskell-37eae200f271bd28a6172cbbea982455626336e8.tar.gz | |
fix some types for 64-bit platforms
Diffstat (limited to 'rts/PrimOps.cmm')
| -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 4a7d398b6a..b635bb0fdd 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 == 0) { + if (StgTSO_flags(tso) & TSO_DIRTY::I32 == 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 == 0) { + if (StgTSO_flags(tso) & TSO_DIRTY::I32 == 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 == 0) { + if (StgTSO_flags(tso) & TSO_DIRTY::I32 == 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 == 0) { + if (StgTSO_flags(tso) & TSO_DIRTY::I32 == 0) { foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") []; } |