mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-06 14:22:31 -07:00
Code Issues Projects Releases Wiki Activity

Rampbegin methods now have collectall arg (change.dylan.jackdaw.160146)

Browse source 
Copied from Perforce
 Change: 20187
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 1998-10-08 01:23:39 +01:00
parent 3fe1d2e389
commit 8a5387bcce
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
mps/src/pool.c
View file

@ -1,6 +1,6 @@
/* impl.c.pool: POOL IMPLEMENTATION
*
* $HopeName: MMsrc!pool.c(trunk.61) $
* $HopeName: MMsrc!pool.c(trunk.62) $
* Copyright (C) 1997. Harlequin Group plc. All rights reserved.
*
* READERSHIP
@ -37,7 +37,7 @@
#include "mpm.h"
SRCID(pool, "$HopeName: MMsrc!pool.c(trunk.61) $");
SRCID(pool, "$HopeName: MMsrc!pool.c(trunk.62) $");
Bool PoolClassCheck(PoolClass class)
@ -1060,10 +1060,11 @@ failCreate:
}
void PoolNoRampBegin(Pool pool, Buffer buf)
void PoolNoRampBegin(Pool pool, Buffer buf, Bool collectAll)
{
AVERT(Pool, pool);
AVERT(Buffer, buf);
AVERT(Bool, collectAll);
NOTREACHED;
}
@ -1076,10 +1077,11 @@ void PoolNoRampEnd(Pool pool, Buffer buf)
}
void PoolTrivRampBegin(Pool pool, Buffer buf)
void PoolTrivRampBegin(Pool pool, Buffer buf, Bool collectAll)
{
AVERT(Pool, pool);
AVERT(Buffer, buf);
AVERT(Bool, collectAll);
}
@ -1097,7 +1099,7 @@ void PoolNoWalk(Pool pool, Seg seg,
AVERT(Pool, pool);
AVERT(Seg, seg);
AVER(FUNCHECK(f));
/* p and s are arbitrary closures, hence can't be checked */
/* p and s are arbitrary, hence can't be checked */
UNUSED(p);
UNUSED(s);