diff options
| -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); |