[commit: integer-gmp] master: update to track changes to CCCS in the RTS (5cc9b63)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/integer-gmp

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/5cc9b63ae813f15b5cb2daa8519cabcd4c3e538f

>---------------------------------------------------------------

commit 5cc9b63ae813f15b5cb2daa8519cabcd4c3e538f
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Tue Nov 29 09:37:23 2011 +0000

    update to track changes to CCCS in the RTS

>---------------------------------------------------------------

 cbits/alloc.c |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/cbits/alloc.c b/cbits/alloc.c
index 5ddfcc4..0d56c25 100644
--- a/cbits/alloc.c
+++ b/cbits/alloc.c
@@ -67,14 +67,16 @@ stgAllocForGMP (size_t size_in_bytes)
 {
   StgArrWords* arr;
   nat data_size_in_words, total_size_in_words;
+  Capability *cap;
 
   /* round up to a whole number of words */
   data_size_in_words  = ROUNDUP_BYTES_TO_WDS(size_in_bytes);
   total_size_in_words = sizeofW(StgArrWords) + data_size_in_words;
 
   /* allocate and fill it in. */
-  arr = (StgArrWords *)allocate(rts_unsafeGetMyCapability(), total_size_in_words);
-  SET_ARR_HDR(arr, &stg_ARR_WORDS_info, CCCS, size_in_bytes);
+  cap = rts_unsafeGetMyCapability();
+  arr = (StgArrWords *)allocate(cap, total_size_in_words);
+  SET_ARR_HDR(arr, &stg_ARR_WORDS_info, ((CapabilityPublic*)cap)->r.rCCCS, size_in_bytes);
 
   /* and return a ptr to the goods inside the array */
   return arr->payload;