mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-26 00:34:17 -07:00
Code Issues Projects Releases Wiki Activity

Add a check that the flipped trace was not already flipped.

Browse source 
Copied from Perforce
 Change: 194006
This commit is contained in:
Gareth Rees 2018-06-20 11:06:01 +01:00
parent 01baf3cfda
commit 3ab83fd7db
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/code/seg.c
View file

@ -1249,10 +1249,12 @@ static void mutatorSegFlip(Seg seg, Trace trace)
NextMethod(Seg, MutatorSeg, flip)(seg, trace);
/* Raise the read barrier if the segment was not grey for any
currently flipped trace. */
arena = PoolArena(SegPool(seg));
flippedTraces = arena->flippedTraces;
AVER(!TraceSetIsMember(flippedTraces, trace));
/* Raise the read barrier if the segment was not grey for any
currently flipped trace. */
if (TraceSetInter(SegGrey(seg), flippedTraces) == TraceSetEMPTY) {
ShieldRaise(arena, seg, AccessREAD);
} else {