From 5b8d30be1fbcbfabde2713e35b3522a7f718a659 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Tue, 4 Sep 2012 14:09:19 +0100
Subject: [PATCH] Fix build
---
compiler/codeGen/CgPrimOp.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compiler/codeGen/CgPrimOp.hs b/compiler/codeGen/CgPrimOp.hs
index b7298222677c..7f8a9d35e003 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
--
GitLab