Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Mps br/auto_header: (cosmetic) tidy up, add aver unbuffered.

Browse source 
Copied from Perforce
 Change: 164884
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2008-04-30 16:50:12 +01:00
parent 68b2a0c69e
commit 09de024b86
1 changed files with 22 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
mps/code/poolamc.c
View file

@ -1955,27 +1955,29 @@ static void amcReclaimNailed(Pool pool, Trace trace, Seg seg)
SegSetNailed(seg, TraceSetDel(SegNailed(seg), trace));
SegSetWhite(seg, TraceSetDel(SegWhite(seg), trace));
AVER(bytesReclaimed <= SegSize(seg));
if(SegNailed(seg) == TraceSetEMPTY) {
if(amcSegHasNailboard(seg)) {
amcSegDestroyNailboard(seg, pool);
}
if(emptySeg && (SegBuffer(seg) == NULL)) {
/* fix .nailboard.limitations.middle */
amcGen gen = amcSegGen(seg);
--gen->segs;
gen->pgen.totalSize -= SegSize(seg);
SegFree(seg);
}
if(SegNailed(seg) == TraceSetEMPTY && amcSegHasNailboard(seg)) {
amcSegDestroyNailboard(seg, pool);
}
AVER(bytesReclaimed <= SegSize(seg));
trace->reclaimSize += bytesReclaimed;
trace->preservedInPlaceCount += preservedInPlaceCount;
trace->preservedInPlaceSize += preservedInPlaceSize;
/* Free the seg if we can; fixes .nailboard.limitations.middle. */
if(emptySeg
&& (SegBuffer(seg) == NULL)
&& (SegNailed(seg) == TraceSetEMPTY)) {
amcGen gen = amcSegGen(seg);
/* We may not free a buffered seg. */
AVER(SegBuffer(seg) == NULL);
--gen->segs;
gen->pgen.totalSize -= SegSize(seg);
SegFree(seg);
}
}
@ -2015,6 +2017,10 @@ static void AMCReclaim(Pool pool, Trace trace, Seg seg)
amcReclaimNailed(pool, trace, seg);
return;
}
/* We may not free a buffered seg. (But all buffered + condemned */
/* segs should have been nailed anyway). */
AVER(SegBuffer(seg) == NULL);
--gen->segs;
size = SegSize(seg);