Pushing varargs decoding into a pool class method. much simpler.

Copied from Perforce
 Change: 181642
 ServerID: perforce.ravenbrook.com

1 files changed, 8 insertions, 0 deletions

diff --git a/mps/code/poolabs.c b/mps/code/poolabs.c
index 1456ec66143..6fc0e279cb8 100644
--- a/mps/code/poolabs.c
+++ b/mps/code/poolabs.c
@@ -122,6 +122,7 @@ DEFINE_CLASS(AbstractPoolClass, class)
   class->size = 0;
   class->offset = 0;
   class->attr = 0;
+  class->varargs = PoolTrivVarargs;
   class->init = PoolTrivInit;
   class->finish = PoolTrivFinish;
   class->alloc = PoolNoAlloc;
@@ -194,6 +195,13 @@ void PoolTrivFinish(Pool pool)
   NOOP;
 }
 
+void PoolTrivVarargs(ArgStruct args[], va_list varargs)
+{
+  UNUSED(varargs);
+  args[0].key = MPS_KEY_ARGS_END;
+  AVER(ArgListCheck(args));
+}
+
 Res PoolTrivInit(Pool pool, ArgList args)
 {
   AVERT(Pool, pool);