diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-02-23 19:57:57 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-02-23 19:59:20 +0000 |
| commit | 98acdf083c119b018f25097593668a816dc68068 (patch) | |
| tree | 3ed98b700e687ed988519d54b574096e949a214e /compiler/codeGen/CgClosure.lhs | |
| parent | 7d8b2c18eeb166ea64504fb3a8022edd6b36e870 (diff) | |
| download | haskell-98acdf083c119b018f25097593668a816dc68068.tar.gz | |
Add a Word add-with-carry primop
No special-casing in any NCGs yet
Diffstat (limited to 'compiler/codeGen/CgClosure.lhs')
| -rw-r--r-- | compiler/codeGen/CgClosure.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgClosure.lhs b/compiler/codeGen/CgClosure.lhs index d6537c27e5..4d1ce50099 100644 --- a/compiler/codeGen/CgClosure.lhs +++ b/compiler/codeGen/CgClosure.lhs @@ -485,7 +485,7 @@ emitBlackHoleCode is_single_entry = do stmtsC [ CmmStore (cmmOffsetW (CmmReg nodeReg) fixedHdrSize) (CmmReg (CmmGlobal CurrentTSO)), - CmmCall (CmmPrim MO_WriteBarrier) [] [] CmmMayReturn, + CmmCall (CmmPrim MO_WriteBarrier Nothing) [] [] CmmMayReturn, CmmStore (CmmReg nodeReg) (CmmReg (CmmGlobal EagerBlackholeInfo)) ] \end{code} |