diff options
| -rw-r--r-- | rts/PrimOps.cmm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 3bf5f37a00..b13e05ce87 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -223,12 +223,10 @@ stg_casArrayzh RET_NP(1,h); } else { // Compare and Swap Succeeded: - if (GET_INFO(arr) == stg_MUT_ARR_PTRS_CLEAN_info) { - SET_HDR(arr, stg_MUT_ARR_PTRS_DIRTY_info, CCCS); - len = StgMutArrPtrs_ptrs(arr); - // The write barrier. We must write a byte into the mark table: - I8[arr + SIZEOF_StgMutArrPtrs + WDS(len) + (ind >> MUT_ARR_PTRS_CARD_BITS )] = 1; - } + SET_HDR(arr, stg_MUT_ARR_PTRS_DIRTY_info, CCCS); + len = StgMutArrPtrs_ptrs(arr); + // The write barrier. We must write a byte into the mark table: + I8[arr + SIZEOF_StgMutArrPtrs + WDS(len) + (ind >> MUT_ARR_PTRS_CARD_BITS )] = 1; RET_NP(0,h); } } |