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

Pass buffer init args through; trivbufferinit does nothing

Browse source 
Copied from Perforce
 Change: 18940
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 1997-10-29 18:56:34 +00:00
parent 16a12413e3
commit fb121a5588
1 changed files with 16 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

24
mps/src/pool.c
View file

@ -1,6 +1,6 @@
/* impl.c.pool: POOL IMPLEMENTATION
*
* $HopeName: MMsrc!pool.c(trunk.37) $
* $HopeName: MMsrc!pool.c(trunk.38) $
* Copyright (C) 1997 The Harlequin Group Limited. All rights reserved.
*
* This is the implementation of the generic pool interface. The
@ -12,7 +12,7 @@
#include "mpm.h"
SRCID(pool, "$HopeName: MMsrc!pool.c(trunk.37) $");
SRCID(pool, "$HopeName: MMsrc!pool.c(trunk.38) $");
Bool PoolClassCheck(PoolClass class)
@ -495,23 +495,31 @@ void PoolTrivFree(Pool pool, Addr old, Size size)
NOOP; /* trivial free has no effect */
}
Res PoolNoBufferInit(Pool pool, Buffer buffer)
/* PoolNoBufferInit -- buffer init for pools without buffers */
Res PoolNoBufferInit(Pool pool, Buffer buffer, va_list args)
{
AVERT(Pool, pool);
UNUSED(buffer);
UNUSED(buffer); UNUSED(args);
NOTREACHED;
return ResUNIMPL;
}
/* The generic method initialised all generic fields; */
/* This doesn't override any fields */
Res PoolTrivBufferInit(Pool pool, Buffer buffer)
/* PoolTrivBufferInit -- default initialization for buffers
*
* The generic method initialised all generic fields; nothing to do.
*/
Res PoolTrivBufferInit(Pool pool, Buffer buffer, va_list args)
{
AVERT(Pool, pool);
UNUSED(buffer);
UNUSED(buffer); UNUSED(args);
return ResOK;
}
void PoolNoBufferFinish(Pool pool, Buffer buffer)
{
AVERT(Pool, pool);