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

Change.mps.dylan.kinglet.170494

Browse source 
Pass class to SegAlloc

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

7
mps/src/poolmv2.c
View file

@ -1,6 +1,6 @@
/* impl.c.poolmv2: MANUAL VARIABLE POOL, II
*
* $HopeName: MMsrc!poolmv2.c(trunk.11) $
* $HopeName: MMsrc!poolmv2.c(trunk.12) $
* Copyright (C) 1998 Harlequin Group plc. All rights reserved.
*
* .readership: any MPS developer
@ -18,7 +18,7 @@
#include "cbs.h"
#include "meter.h"
SRCID(poolmv2, "$HopeName: MMsrc!poolmv2.c(trunk.11) $");
SRCID(poolmv2, "$HopeName: MMsrc!poolmv2.c(trunk.12) $");
/* Signatures */
@ -908,7 +908,8 @@ size_t mps_mv2_free_size(mps_pool_t mps_pool)
static Res MV2SegAlloc(Seg *segReturn, MV2 mv2, Size size,
Pool pool, Bool withReservoirPermit)
{
Res res = SegAlloc(segReturn, MV2SegPref(mv2), size, pool,
Res res = SegAlloc(segReturn, EnsureGCSegClass(),
MV2SegPref(mv2), size, pool,
withReservoirPermit);
if (res == ResOK) {