From 000be17033c74b8d9ab649ad1942800256273bf5 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 18 Oct 2007 09:54:17 +0000 Subject: [PATCH] fix warnings when compiling via C --- rts/PrimOps.cmm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 04a753c..444bbe7 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) { -- 1.7.10.4