From 19ea3f9935cfe8a18bb6e8b41748ff7290a1e818 Mon Sep 17 00:00:00 2001
From: Gavin Matthews <grm@ravenbrook.com>
Date: Fri, 11 Sep 1998 16:57:14 +0100
Subject: [PATCH] Add new pool class fields for fenceposts

Copied from Perforce
 Change: 20063
 ServerID: perforce.ravenbrook.com
---
 mps/src/poolmvff.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/mps/src/poolmvff.c b/mps/src/poolmvff.c
index 632b671b5c9..e9e5f0f4e27 100644
--- a/mps/src/poolmvff.c
+++ b/mps/src/poolmvff.c
@@ -1,6 +1,6 @@
 /* impl.c.poolmvff: First Fit Manual Variable Pool
  * 
- * $HopeName: MMsrc!poolmvff.c(MMdevel_gavinm_mvff.6) $
+ * $HopeName: MMsrc!poolmvff.c(trunk.2) $
  * Copyright (C) 1998 Harlequin Group plc.  All rights reserved.
  *
  * .purpose: This is a pool class for manually managed objects of
@@ -16,7 +16,7 @@
 #include "mpm.h"
 #include "mpscmvff.h"
 
-SRCID(poolmvff, "$HopeName: MMsrc!poolmvff.c(MMdevel_gavinm_mvff.6) $");
+SRCID(poolmvff, "$HopeName: MMsrc!poolmvff.c(trunk.2) $");
 
 
 extern PoolClass PoolClassMVFF(void);
@@ -495,6 +495,7 @@ static PoolClassStruct PoolClassMVFFStruct = {
   "MVFF",                               /* name */
   sizeof(MVFFStruct),                   /* size */
   offsetof(MVFFStruct, poolStruct),     /* offset */
+  NULL,                                 /* superclass */
   AttrALLOC | AttrFREE,                 /* attr */
   MVFFInit,                             /* init */
   MVFFFinish,                           /* finish */
@@ -519,6 +520,7 @@ static PoolClassStruct PoolClassMVFFStruct = {
   PoolNoRampEnd,
   PoolNoWalk,                           /* walk */
   MVFFDescribe,                         /* describe */
+  PoolNoDebugMixin, 
   PoolClassSig                          /* impl.h.mpmst.class.end-sig */
 };