projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3e140bd
)
64-bit fixes
author
Simon Marlow
<marlowsd@gmail.com>
Tue, 17 Jun 2008 10:10:45 +0000
(10:10 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Tue, 17 Jun 2008 10:10:45 +0000
(10:10 +0000)
rts/PrimOps.cmm
patch
|
blob
|
history
diff --git
a/rts/PrimOps.cmm
b/rts/PrimOps.cmm
index
b635bb0
..
a45439d
100644
(file)
--- a/
rts/PrimOps.cmm
+++ b/
rts/PrimOps.cmm
@@
-1587,7
+1587,7
@@
takeMVarzh_fast
tso = StgMVar_head(mvar);
PerformPut(tso,StgMVar_value(mvar));
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") [];
}
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));
/* 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") [];
}
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);
/* 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") [];
}
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);
/* 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") [];
}
foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") [];
}