From 3a4f9158d6d6688e591d505461d40e82c002c74c Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 7 Feb 2006 13:23:23 +0000 Subject: [PATCH] fix a warning --- ghc/rts/PrimOps.cmm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- 1.7.10.4