diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-12-19 13:52:06 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-12-19 14:35:03 +0100 |
| commit | a100763cc5c6c9736a00ca57b2ec3c721311eecb (patch) | |
| tree | de71d4f3c962713260557b63bb3a1f3688ac03ad /rts/PrimOps.cmm | |
| parent | 244d1441bbe9a8d5e83015c749d1339b8f7c7319 (diff) | |
| download | haskell-a100763cc5c6c9736a00ca57b2ec3c721311eecb.tar.gz | |
Get rid of some stuttering in comments and docs
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 1dad14bc1b..2b3a304d06 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -260,7 +260,7 @@ stg_newArrayzh ( W_ n /* words */, gcptr init ) StgMutArrPtrs_ptrs(arr) = n; StgMutArrPtrs_size(arr) = size; - // Initialise all elements of the the array with the value in R2 + // Initialise all elements of the array with the value in R2 p = arr + SIZEOF_StgMutArrPtrs; for: if (p < arr + SIZEOF_StgMutArrPtrs + WDS(n)) { @@ -423,7 +423,7 @@ stg_newSmallArrayzh ( W_ n /* words */, gcptr init ) SET_HDR(arr, stg_SMALL_MUT_ARR_PTRS_DIRTY_info, CCCS); StgSmallMutArrPtrs_ptrs(arr) = n; - // Initialise all elements of the the array with the value in R2 + // Initialise all elements of the array with the value in R2 p = arr + SIZEOF_StgSmallMutArrPtrs; for: if (p < arr + SIZEOF_StgSmallMutArrPtrs + WDS(n)) { |