From: Simon Marlow Date: Tue, 17 Jun 2008 10:10:45 +0000 (+0000) Subject: 64-bit fixes X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=bb9d6c363c927899fd32d3c99bf2af4bdaeee789 64-bit fixes --- diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index b635bb0..a45439d 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") []; }