[commit: integer-gmp] master: Track changes to the way we reference CCCS in GHC (was: W_[CCCS], now: CCCS) (f2c9931)

[Simon Marlow]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f2c993166665685916a8f3ab4b2453462c435e4c

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

commit f2c993166665685916a8f3ab4b2453462c435e4c
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Thu Dec 1 12:18:43 2011 +0000

    Track changes to the way we reference CCCS in GHC (was: W_[CCCS], now: CCCS)

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

 cbits/gmp-wrappers.cmm |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/cbits/gmp-wrappers.cmm b/cbits/gmp-wrappers.cmm
index a347f7c..0ef7f19 100644
--- a/cbits/gmp-wrappers.cmm
+++ b/cbits/gmp-wrappers.cmm
@@ -66,7 +66,7 @@ integer_cmm_int2Integerzh
    ALLOC_PRIM( SIZEOF_StgArrWords + WDS(1), NO_PTRS, integer_cmm_int2Integerzh );
 
    p = Hp - SIZEOF_StgArrWords;
-   SET_HDR(p, stg_ARR_WORDS_info, W_[CCCS]);
+   SET_HDR(p, stg_ARR_WORDS_info, CCCS);
    StgArrWords_bytes(p) = SIZEOF_W;
 
    /* mpz_set_si is inlined here, makes things simpler */
@@ -100,7 +100,7 @@ integer_cmm_word2Integerzh
    ALLOC_PRIM( SIZEOF_StgArrWords + WDS(1), NO_PTRS, integer_cmm_word2Integerzh);
 
    p = Hp - SIZEOF_StgArrWords;
-   SET_HDR(p, stg_ARR_WORDS_info, W_[CCCS]);
+   SET_HDR(p, stg_ARR_WORDS_info, CCCS);
    StgArrWords_bytes(p) = SIZEOF_W;
 
    if (val != 0) {
@@ -147,7 +147,7 @@ integer_cmm_int64ToIntegerzh
                NO_PTRS, integer_cmm_int64ToIntegerzh );
 
    p = Hp - SIZEOF_StgArrWords - WDS(words_needed) + WDS(1);
-   SET_HDR(p, stg_ARR_WORDS_info, W_[CCCS]);
+   SET_HDR(p, stg_ARR_WORDS_info, CCCS);
    StgArrWords_bytes(p) = WDS(words_needed);
 
    if ( %lt(hi,0) ) {
@@ -202,7 +202,7 @@ integer_cmm_word64ToIntegerzh
                NO_PTRS, integer_cmm_word64ToIntegerzh );
 
    p = Hp - SIZEOF_StgArrWords - WDS(words_needed) + WDS(1);
-   SET_HDR(p, stg_ARR_WORDS_info, W_[CCCS]);
+   SET_HDR(p, stg_ARR_WORDS_info, CCCS);
    StgArrWords_bytes(p) = WDS(words_needed);
 
    if ( hi != 0 ) {
@@ -532,7 +532,7 @@ integer_cmm_decodeDoublezh
     /* Be prepared to tell Lennart-coded integer_cbits_decodeDouble
        where mantissa.d can be put (it does not care about the rest) */
     p = Hp - ARR_SIZE + WDS(1);
-    SET_HDR(p, stg_ARR_WORDS_info, W_[CCCS]);
+    SET_HDR(p, stg_ARR_WORDS_info, CCCS);
     StgArrWords_bytes(p) = DOUBLE_MANTISSA_SIZE;
     MP_INT__mp_d(mp_tmp1) = BYTE_ARR_CTS(p);