mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
Code Issues Projects Releases Wiki Activity

Mps br/padding poolamc.c: change amcbufferfill, so that for large requests (> 8 arenaaligns) it gives only requested size; pad the rest. see job001811. the number 8 is provisional...

Browse source 
Copied from Perforce
 Change: 167759
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2009-04-08 16:04:09 +01:00
parent 2beccb39cb
commit bbd83d25bc
1 changed files with 21 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

24
mps/code/poolamc.c
View file

@ -1073,11 +1073,29 @@ static Res AMCBufferFill(Addr *baseReturn, Addr *limitReturn,
}
PoolGenUpdateZones(&gen->pgen, seg);
/* Give the buffer the entire segment to allocate in. */
base = SegBase(seg);
*baseReturn = base;
limit = AddrAdd(base, alignedSize);
AVER(limit == SegLimit(seg));
if(size < 8 * ArenaAlign(arena)) {
/* Small segment: give the buffer the entire seg to allocate in. */
limit = AddrAdd(base, alignedSize);
AVER(limit == SegLimit(seg));
} else {
/* Big segment: ONLY give the buffer the size requested, and pad */
/* the remainder of the segment: see job001811. */
Size padSize;
limit = AddrAdd(base, size);
AVER(limit <= SegLimit(seg));
padSize = alignedSize - size;
AVER(SizeIsAligned(padSize, pool->alignment));
AVER(AddrAdd(limit, padSize) == SegLimit(seg));
if(padSize > 0) {
ShieldExpose(arena, seg);
(*pool->format->pad)(limit, padSize);
ShieldCover(arena, seg);
}
}
*limitReturn = limit;
return ResOK;
}