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:
8aa4432
)
fix warnings when compiling via C
author
Simon Marlow
<simonmar@microsoft.com>
Thu, 18 Oct 2007 09:54:17 +0000
(09:54 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Thu, 18 Oct 2007 09:54:17 +0000
(09:54 +0000)
rts/PrimOps.cmm
patch
|
blob
|
history
diff --git
a/rts/PrimOps.cmm
b/rts/PrimOps.cmm
index
04a753c
..
444bbe7
100644
(file)
--- a/
rts/PrimOps.cmm
+++ b/
rts/PrimOps.cmm
@@
-1498,7
+1498,7
@@
takeMVarzh_fast
#endif
if (info == stg_MVAR_CLEAN_info) {
#endif
if (info == stg_MVAR_CLEAN_info) {
- foreign "C" dirty_MVAR(BaseReg "ptr", mvar);
+ foreign "C" dirty_MVAR(BaseReg "ptr", mvar "ptr");
}
/* If the MVar is empty, put ourselves on its blocking queue,
}
/* If the MVar is empty, put ourselves on its blocking queue,
@@
-1595,7
+1595,7
@@
tryTakeMVarzh_fast
}
if (info == stg_MVAR_CLEAN_info) {
}
if (info == stg_MVAR_CLEAN_info) {
- foreign "C" dirty_MVAR(BaseReg "ptr", mvar);
+ foreign "C" dirty_MVAR(BaseReg "ptr", mvar "ptr");
}
/* we got the value... */
}
/* we got the value... */
@@
-1661,7
+1661,7
@@
putMVarzh_fast
#endif
if (info == stg_MVAR_CLEAN_info) {
#endif
if (info == stg_MVAR_CLEAN_info) {
- foreign "C" dirty_MVAR(BaseReg "ptr", mvar);
+ foreign "C" dirty_MVAR(BaseReg "ptr", mvar "ptr");
}
if (StgMVar_value(mvar) != stg_END_TSO_QUEUE_closure) {
}
if (StgMVar_value(mvar) != stg_END_TSO_QUEUE_closure) {
@@
-1747,7
+1747,7
@@
tryPutMVarzh_fast
}
if (info == stg_MVAR_CLEAN_info) {
}
if (info == stg_MVAR_CLEAN_info) {
- foreign "C" dirty_MVAR(BaseReg "ptr", mvar);
+ foreign "C" dirty_MVAR(BaseReg "ptr", mvar "ptr");
}
if (StgMVar_head(mvar) != stg_END_TSO_QUEUE_closure) {
}
if (StgMVar_head(mvar) != stg_END_TSO_QUEUE_closure) {