diff options
| author | GHC GitLab CI <ghc-ci@gitlab-haskell.org> | 2021-06-11 00:43:43 +0000 |
|---|---|---|
| committer | Zubin <zubin.duggal@gmail.com> | 2021-06-24 14:36:53 +0000 |
| commit | 6cfca589db098f4b2e49b6f4e6750f7b58c63c45 (patch) | |
| tree | a47d644f9af51193e1d35af00e34791531aa6e2c | |
| parent | 646ef56e48410438fda528d6d3ca26295da34406 (diff) | |
| download | haskell-wip/nonmoving-fixes.tar.gz | |
rts: Eliminate redundant branchwip/nonmoving-fixes
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; |