diff options
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index c5b232f09d..77296e20ae 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -408,6 +408,9 @@ stg_newArrayArrayzh ( W_ n /* words */ ) StgMutArrPtrs_ptrs(arr) = n; StgMutArrPtrs_size(arr) = size; + // Initialize card table to all-clean. + setCardsValue(arr, 0, n, 0); + // Initialise all elements of the array with a pointer to the new array p = arr + SIZEOF_StgMutArrPtrs; for: |