mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-21 12:03:55 -08:00
Code Issues Projects Releases Wiki Activity

Change.mps.dylan.kinglet.170494

Browse source 
remove use of SegP
Use SegClass instead of GCSegClass

Copied from Perforce
 Change: 21043
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Tony Mann 1999-12-16 15:27:50 +00:00
parent 1df6ba9d09
commit e76b689b88
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
mps/src/poolmvff.c
View file

@ -1,6 +1,6 @@
/* impl.c.poolmvff: First Fit Manual Variable Pool
*
* $HopeName: MMsrc!poolmvff.c(trunk.16) $
* $HopeName: MMsrc!poolmvff.c(trunk.17) $
* Copyright (C) 1999. Harlequin Limited. All rights reserved.
*
* .purpose: This is a pool class for manually managed objects of
@ -24,7 +24,7 @@
#include "cbs.h"
#include "mpm.h"
SRCID(poolmvff, "$HopeName: MMsrc!poolmvff.c(trunk.16) $");
SRCID(poolmvff, "$HopeName: MMsrc!poolmvff.c(trunk.17) $");
/* Would go in poolmvff.h if the class had any MPS-internal clients. */
@ -202,7 +202,8 @@ static Res MVFFAddSeg(Seg *segReturn,
segSize = SizeAlignUp(segSize, align);
res = SegAlloc(&seg, mvff->segPref, segSize, pool,
res = SegAlloc(&seg, EnsureSegClass(),
mvff->segPref, segSize, pool,
withReservoirPermit);
if(res != ResOK) {
/* try again for a seg just large enough for object */
@ -215,8 +216,6 @@ static Res MVFFAddSeg(Seg *segReturn,
}
}
SegSetP(seg, (void*)0);
mvff->total += segSize;
base = SegBase(seg); limit = AddrAdd(base, segSize);
MVFFAddToFreeList(&base, &limit, mvff);