diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-10-18 09:54:17 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-10-18 09:54:17 +0000 |
| commit | 000be17033c74b8d9ab649ad1942800256273bf5 (patch) | |
| tree | 919cb7d9b87d8895bf89e74d01f95bd81d9cf860 /rts/PrimOps.cmm | |
| parent | 8aa44328884efa12ef22999ec01ebf368bd7bca2 (diff) | |
| download | haskell-000be17033c74b8d9ab649ad1942800256273bf5.tar.gz | |
fix warnings when compiling via C
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 04a753c51b..444bbe7efc 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -1498,7 +1498,7 @@ takeMVarzh_fast #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, @@ -1595,7 +1595,7 @@ tryTakeMVarzh_fast } 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... */ @@ -1661,7 +1661,7 @@ putMVarzh_fast #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) { @@ -1747,7 +1747,7 @@ tryPutMVarzh_fast } 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) { |