From a8ae9fd246a7f1555bdd7cbf6574d5bb776e146e Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sat, 19 Jun 2010 23:53:32 +0000
Subject: [PATCH] Follow SET_ARR_HDR change

---
 cbits/alloc.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cbits/alloc.c b/cbits/alloc.c
index e1320a9..5ddfcc4 100644
--- a/cbits/alloc.c
+++ b/cbits/alloc.c
@@ -74,7 +74,7 @@ stgAllocForGMP (size_t size_in_bytes)
 
   /* allocate and fill it in. */
   arr = (StgArrWords *)allocate(rts_unsafeGetMyCapability(), total_size_in_words);
-  SET_ARR_HDR(arr, &stg_ARR_WORDS_info, CCCS, data_size_in_words);
+  SET_ARR_HDR(arr, &stg_ARR_WORDS_info, CCCS, size_in_bytes);
 
   /* and return a ptr to the goods inside the array */
   return arr->payload;
-- 
GitLab