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 <[email protected]> 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; _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
