Commit 000be170 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix warnings when compiling via C

parent 8aa44328
...@@ -1498,7 +1498,7 @@ takeMVarzh_fast ...@@ -1498,7 +1498,7 @@ takeMVarzh_fast
#endif #endif
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 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 ...@@ -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 ...@@ -1661,7 +1661,7 @@ putMVarzh_fast
#endif #endif
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_value(mvar) != stg_END_TSO_QUEUE_closure) { if (StgMVar_value(mvar) != stg_END_TSO_QUEUE_closure) {
...@@ -1747,7 +1747,7 @@ tryPutMVarzh_fast ...@@ -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) {
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment