Integrate changes from global graphics.

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

1 files changed, 14 insertions, 0 deletions

diff --git a/mps/code/poolabs.c b/mps/code/poolabs.c
index 86fd76ddf31..eaab36f4d12 100644
--- a/mps/code/poolabs.c
+++ b/mps/code/poolabs.c
@@ -2,6 +2,7 @@
  *
  * $Id$
  * Copyright (c) 2001 Ravenbrook Limited.
+ * Copyright (C) 2002 Global Graphics Software.
  *
  * PURPOSE
  *
@@ -141,6 +142,7 @@ DEFINE_CLASS(AbstractPoolClass, class)
   class->framePop = PoolNoFramePop;
   class->framePopPending = PoolNoFramePopPending;
   class->walk = PoolNoWalk;
+  class->freewalk = PoolNoFreeWalk;
   class->bufferClass = PoolNoBufferClass;
   class->describe = PoolTrivDescribe;
   class->debugMixin = PoolNoDebugMixin;
@@ -620,6 +622,18 @@ void PoolNoWalk(Pool pool, Seg seg,
 }
 
 
+void PoolNoFreeWalk(Pool pool, FreeBlockStepMethod f, void *p)
+{
+  AVERT(Pool, pool);
+  AVER(FUNCHECK(f));
+  /* p is arbitrary, hence can't be checked */
+  UNUSED(p);
+
+  /* FreeWalk doesn't have be perfect, so just pretend you didn't find any. */
+  NOOP;
+}
+
+
 BufferClass PoolNoBufferClass(void)
 {
   NOTREACHED;