[commit: ghc] ghc-7.6: Fix build (5b8d30b)
Ian Lynagh <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.6 http://hackage.haskell.org/trac/ghc/changeset/5b8d30be1fbcbfabde2713e35b3522a7f718a659 >--------------------------------------------------------------- commit 5b8d30be1fbcbfabde2713e35b3522a7f718a659 Author: Ian Lynagh <[email protected]> Date: Tue Sep 4 14:09:19 2012 +0100 Fix build >--------------------------------------------------------------- compiler/codeGen/CgPrimOp.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/codeGen/CgPrimOp.hs b/compiler/codeGen/CgPrimOp.hs index b729822..7f8a9d3 100644 --- a/compiler/codeGen/CgPrimOp.hs +++ b/compiler/codeGen/CgPrimOp.hs @@ -1002,7 +1002,7 @@ emitCloneArray info_p res_r src0 src_off0 n0 live = do src_off <- assignTemp_ src_off0 n <- assignTemp_ n0 - card_words <- assignTemp $ cardRoundUp n + card_bytes <- assignTemp $ cardRoundUp n size <- assignTemp $ n `cmmAddWord` bytesToWordsRoundUp card_bytes words <- assignTemp $ arrPtrsHdrSizeW `cmmAddWord` size