From fb121a5588bfb2dede5550fbd172fe6379d9ec02 Mon Sep 17 00:00:00 2001
From: Pekka Pirinen <pekka@harlequin.com>
Date: Wed, 29 Oct 1997 18:56:34 +0000
Subject: [PATCH] Pass buffer init args through; trivbufferinit does nothing

Copied from Perforce
 Change: 18940
 ServerID: perforce.ravenbrook.com
---
 mps/src/pool.c | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

diff --git a/mps/src/pool.c b/mps/src/pool.c
index 91fc8584894..919b14674c4 100644
--- a/mps/src/pool.c
+++ b/mps/src/pool.c
@@ -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);