mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-17 16:41:17 -08:00
Code Issues Projects Releases Wiki Activity

Fix the header case as well

Browse source 
Copied from Perforce
 Change: 21561
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 2000-10-04 15:08:11 +01:00
parent 0f206c1c7d
commit 0456d1e772
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
mps/src/poolamc.c
View file

@ -1,6 +1,6 @@
/* impl.c.poolamc: AUTOMATIC MOSTLY-COPYING MEMORY POOL CLASS
*
* $HopeName: MMsrc!poolamc.c(trunk.48) $
* $HopeName: MMsrc!poolamc.c(trunk.49) $
* Copyright (C) 2000 Harlequin Limited. All rights reserved.
*
* .sources: design.mps.poolamc.
@ -9,7 +9,7 @@
#include "mpscamc.h"
#include "mpm.h"
SRCID(poolamc, "$HopeName: MMsrc!poolamc.c(trunk.48) $");
SRCID(poolamc, "$HopeName: MMsrc!poolamc.c(trunk.49) $");
/* PType enumeration -- distinguishes AMCGen and AMCNailBoard */
@ -1860,9 +1860,8 @@ static Res AMCHeaderFix(Pool pool, ScanState ss, Seg seg, Ref *refIO)
} while (!BUFFER_COMMIT(buffer, newBase, length));
ss->copiedSize += length;
/* We know seg is readable, because we made sure in .access.read.header. */
/* Now make sure there's no write barrier. */
if (!shieldUp && (SegPM(seg) & AccessWRITE)) {
/* Make sure there's no read or write barrier. */
if (!shieldUp && (SegPM(seg) & (AccessWRITE | AccessREAD))) {
ShieldExpose(arena, seg);
shieldUp = TRUE;
}