diff options
author | Ben Gamari <ben@smart-cactus.org> | 2022-01-30 08:45:49 -0500 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-01 12:29:26 -0500 |
commit | 88fba8a4b3c22e953a634b81dd0b67ec66eb5e72 (patch) | |
tree | 75a46332ad32cfeaf4f4d52b3b60fd452f2493b6 /rts/PrimOps.cmm | |
parent | 06185102bb06d6d56e00d40172a6a473fc228501 (diff) | |
download | haskell-88fba8a4b3c22e953a634b81dd0b67ec66eb5e72.tar.gz |
Fix a few Note inconsistencies
Diffstat (limited to 'rts/PrimOps.cmm')
-rw-r--r-- | rts/PrimOps.cmm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index c5b6065ec2..84c5850f97 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -166,7 +166,6 @@ stg_isMutableByteArrayPinnedzh ( gcptr mba ) /* Note [LDV profiling and resizing arrays] * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - * * As far as the LDV profiler is concerned arrays are "inherently used" which * means we don't track their time of use and eventual destruction. We just * assume they get used. @@ -1562,7 +1561,7 @@ stg_writeTVarzh (P_ tvar, /* :: TVar a */ * exception and never perform its take or put, and we'd end up with a * deadlock. * - * Note [Nonmoving write barrier in Perform{Take,Put}] + * Note [Nonmoving write barrier in Perform{Put,Take}] * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ * As noted in Note [Non-moving garbage collector] in NonMoving.c, the * non-moving GC requires that all overwritten pointers be pushed to the update @@ -1825,7 +1824,7 @@ stg_putMVarzh ( P_ mvar, /* :: MVar a */ StgMVarTSOQueue_tso(q) = CurrentTSO; SET_HDR(q, stg_MVAR_TSO_QUEUE_info, CCS_SYSTEM); - //See Note [Heap memory barriers] + // See Note [Heap memory barriers] prim_write_barrier; if (StgMVar_head(mvar) == stg_END_TSO_QUEUE_closure) { @@ -2036,7 +2035,7 @@ stg_readMVarzh ( P_ mvar, /* :: MVar a */ ) StgMVarTSOQueue_tso(q) = CurrentTSO; SET_HDR(q, stg_MVAR_TSO_QUEUE_info, CCS_SYSTEM); - //See Note [Heap memory barriers] + // See Note [Heap memory barriers] prim_write_barrier; StgTSO__link(CurrentTSO) = q; @@ -2169,7 +2168,7 @@ stg_readIOPortzh ( P_ ioport /* :: IOPort a */ ) StgMVarTSOQueue_tso(q) = CurrentTSO; SET_HDR(q, stg_MVAR_TSO_QUEUE_info, CCS_SYSTEM); - //See Note [Heap memory barriers] + // See Note [Heap memory barriers] prim_write_barrier; StgMVar_head(ioport) = q; |