From 37eae200f271bd28a6172cbbea982455626336e8 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 3 Jun 2008 03:26:25 +0000 Subject: [PATCH] fix some types for 64-bit platforms --- rts/PrimOps.cmm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 4a7d398..b635bb0 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") []; } -- 1.7.10.4