Skip to content
Snippets Groups Projects
Commit f2c99316 authored by Simon Marlow's avatar Simon Marlow
Browse files

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

parent 5cc9b63a
No related branches found
No related tags found
No related merge requests found
...@@ -66,7 +66,7 @@ integer_cmm_int2Integerzh ...@@ -66,7 +66,7 @@ integer_cmm_int2Integerzh
ALLOC_PRIM( SIZEOF_StgArrWords + WDS(1), NO_PTRS, integer_cmm_int2Integerzh ); ALLOC_PRIM( SIZEOF_StgArrWords + WDS(1), NO_PTRS, integer_cmm_int2Integerzh );
p = Hp - SIZEOF_StgArrWords; 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; StgArrWords_bytes(p) = SIZEOF_W;
/* mpz_set_si is inlined here, makes things simpler */ /* mpz_set_si is inlined here, makes things simpler */
...@@ -100,7 +100,7 @@ integer_cmm_word2Integerzh ...@@ -100,7 +100,7 @@ integer_cmm_word2Integerzh
ALLOC_PRIM( SIZEOF_StgArrWords + WDS(1), NO_PTRS, integer_cmm_word2Integerzh); ALLOC_PRIM( SIZEOF_StgArrWords + WDS(1), NO_PTRS, integer_cmm_word2Integerzh);
p = Hp - SIZEOF_StgArrWords; 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; StgArrWords_bytes(p) = SIZEOF_W;
if (val != 0) { if (val != 0) {
...@@ -147,7 +147,7 @@ integer_cmm_int64ToIntegerzh ...@@ -147,7 +147,7 @@ integer_cmm_int64ToIntegerzh
NO_PTRS, integer_cmm_int64ToIntegerzh ); NO_PTRS, integer_cmm_int64ToIntegerzh );
p = Hp - SIZEOF_StgArrWords - WDS(words_needed) + WDS(1); 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); StgArrWords_bytes(p) = WDS(words_needed);
if ( %lt(hi,0) ) { if ( %lt(hi,0) ) {
...@@ -202,7 +202,7 @@ integer_cmm_word64ToIntegerzh ...@@ -202,7 +202,7 @@ integer_cmm_word64ToIntegerzh
NO_PTRS, integer_cmm_word64ToIntegerzh ); NO_PTRS, integer_cmm_word64ToIntegerzh );
p = Hp - SIZEOF_StgArrWords - WDS(words_needed) + WDS(1); 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); StgArrWords_bytes(p) = WDS(words_needed);
if ( hi != 0 ) { if ( hi != 0 ) {
...@@ -532,7 +532,7 @@ integer_cmm_decodeDoublezh ...@@ -532,7 +532,7 @@ integer_cmm_decodeDoublezh
/* Be prepared to tell Lennart-coded integer_cbits_decodeDouble /* Be prepared to tell Lennart-coded integer_cbits_decodeDouble
where mantissa.d can be put (it does not care about the rest) */ where mantissa.d can be put (it does not care about the rest) */
p = Hp - ARR_SIZE + WDS(1); 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; StgArrWords_bytes(p) = DOUBLE_MANTISSA_SIZE;
MP_INT__mp_d(mp_tmp1) = BYTE_ARR_CTS(p); MP_INT__mp_d(mp_tmp1) = BYTE_ARR_CTS(p);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment