diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-02-07 13:23:23 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-02-07 13:23:23 +0000 |
| commit | 3a4f9158d6d6688e591d505461d40e82c002c74c (patch) | |
| tree | b327afb8bc610b22e383f84402024850fa4db0d5 | |
| parent | 7717b20e5fd2b5bc6b894abe96bd957b9bb5435e (diff) | |
| download | haskell-3a4f9158d6d6688e591d505461d40e82c002c74c.tar.gz | |
fix a warning
| -rw-r--r-- | ghc/rts/PrimOps.cmm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/rts/PrimOps.cmm b/ghc/rts/PrimOps.cmm index 67d3767182..58948da25a 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); |