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 | |
| 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.
| -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; |