Repository : ssh://[email protected]/ghc On branch : master Link : http://ghc.haskell.org/trac/ghc/changeset/8c99e698476291c9ed9e8231bd08406060f92e16/ghc
>--------------------------------------------------------------- commit 8c99e698476291c9ed9e8231bd08406060f92e16 Author: Ryan Newton <[email protected]> Date: Sat Aug 31 16:10:05 2013 -0400 minor: remove tabs from file >--------------------------------------------------------------- 8c99e698476291c9ed9e8231bd08406060f92e16 rts/PrimOps.cmm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 060f5db..08e7af0 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -249,10 +249,10 @@ stg_casArrayzh ( gcptr arr, W_ ind, gcptr old, gcptr new ) return (1,h); } else { // Compare and Swap Succeeded: - 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; return (0,new); } } _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
