diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-02-09 15:04:20 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-02-09 15:04:20 +0000 |
| commit | 608bc3f3ad6fca14a23529f314dbd9d3342a9507 (patch) | |
| tree | 2337aeb2cb7cfef1e3913ac4cb6897e0c05965c9 /ghc/compiler/codeGen | |
| parent | 7b2ff4cc95ce49081d84c25184aec796377fbc35 (diff) | |
| download | haskell-608bc3f3ad6fca14a23529f314dbd9d3342a9507.tar.gz | |
change dirty_MUT_VAR() to use recordMutableCap()
rather than recordMutableGen(), the former works better in SMP
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgPrimOp.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/compiler/codeGen/CgPrimOp.hs b/ghc/compiler/codeGen/CgPrimOp.hs index 7de4516af7..c1264be62f 100644 --- a/ghc/compiler/codeGen/CgPrimOp.hs +++ b/ghc/compiler/codeGen/CgPrimOp.hs @@ -134,7 +134,8 @@ emitPrimOp [] WriteMutVarOp [mutv,var] live stmtC (CmmCall (CmmForeignCall (CmmLit (CmmLabel mkDirty_MUT_VAR_Label)) CCallConv) [{-no results-}] - [(mutv,PtrHint)] + [(CmmReg (CmmGlobal BaseReg), PtrHint), + (mutv,PtrHint)] (Just vols)) -- #define sizzeofByteArrayzh(r,a) \ |