diff options
Diffstat (limited to 'rts/Compact.cmm')
| -rw-r--r-- | rts/Compact.cmm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/Compact.cmm b/rts/Compact.cmm index 061646846d..bae94a03cd 100644 --- a/rts/Compact.cmm +++ b/rts/Compact.cmm @@ -53,6 +53,9 @@ import CLOSURE base_GHCziIOziException_cannotCompactPinned_closure; // data structure. It takes the location to store the address of the // compacted object as an argument, so that it can be tail-recursive. // +// N.B. No memory barrier (see Note [Heap memory barriers] in SMP.h) is needed +// here since this is essentially an allocation of a new object which won't +// be visible to other cores until after we return. stg_compactAddWorkerzh ( P_ compact, // The Compact# object P_ p, // The object to compact |