diff options
author | GHC GitLab CI <ghc-ci@gitlab-haskell.org> | 2021-06-11 00:43:43 +0000 |
---|---|---|
committer | Zubin Duggal <zubin.duggal@gmail.com> | 2021-06-27 16:49:14 +0530 |
commit | 669d5cb328afa5b3c82949af9d3c5e49f87e341b (patch) | |
tree | 03035fd6e8417923facc0543c8731a7e09502f89 | |
parent | 616196cc8588e8b668d511c67004b6df36c6f486 (diff) | |
download | haskell-669d5cb328afa5b3c82949af9d3c5e49f87e341b.tar.gz |
rts: Eliminate redundant branchwip/8.10.6-backports
Previously we branched unnecessarily on
IF_NONMOVING_WRITE_BARRIER_ENABLED on every trip through the array
barrier push loop.
(cherry picked from commit 30f233fe8a0342abbafa2b785a32615bace9492f)
-rw-r--r-- | rts/PrimOps.cmm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 595377b225..1bf5b4adae 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -511,9 +511,7 @@ stg_copyArray_barrier ( W_ hdr_size, gcptr dst, W_ dst_off, W_ n) end = p + WDS(n); again: - IF_NONMOVING_WRITE_BARRIER_ENABLED { - ccall updateRemembSetPushClosure_(BaseReg "ptr", W_[p] "ptr"); - } + ccall updateRemembSetPushClosure_(BaseReg "ptr", W_[p] "ptr"); p = p + WDS(1); if (p < end) { goto again; |