diff options
author | GHC GitLab CI <ghc-ci@gitlab-haskell.org> | 2021-06-11 00:43:43 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-06-26 22:42:03 -0400 |
commit | 30f233fe8a0342abbafa2b785a32615bace9492f (patch) | |
tree | 4243636606a66c34559694794c73595855d66295 /rts | |
parent | 221a104f44fdf58e4514d41ae827747c2bf938c8 (diff) | |
download | haskell-30f233fe8a0342abbafa2b785a32615bace9492f.tar.gz |
rts: Eliminate redundant branch
Previously we branched unnecessarily on
IF_NONMOVING_WRITE_BARRIER_ENABLED on every trip through the array
barrier push loop.
Diffstat (limited to 'rts')
-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 9283ed79c8..85c708cf92 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -507,9 +507,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; |