From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 7 Feb 2006 13:23:23 +0000 (+0000)
Subject: fix a warning
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3a4f9158d6d6688e591d505461d40e82c002c74c;p=ghc-hetmet.git

fix a warning
---

diff --git a/ghc/rts/PrimOps.cmm b/ghc/rts/PrimOps.cmm
index 67d3767..58948da 100644
--- a/ghc/rts/PrimOps.cmm
+++ b/ghc/rts/PrimOps.cmm
@@ -228,7 +228,7 @@ atomicModifyMutVarzh_fast
    StgThunk_payload(y,0) = z;
 
    StgMutVar_var(R1) = y;
-   foreign "C" dirty_MUT_VAR(R1) [R1];
+   foreign "C" dirty_MUT_VAR(R1 "ptr") [R1];
 
    TICK_ALLOC_THUNK_1();
    CCCS_ALLOC(THUNK_1_SIZE);