From 863b804e31e032fb965efb6fac0f7ba3922345dc Mon Sep 17 00:00:00 2001
From: Tony Mann <tony@harlequin.com>
Date: Tue, 11 Jan 2000 11:49:55 +0000
Subject: [PATCH] Change.mps.dylan.kinglet.160189

Don't support segment splitting & merging

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

diff --git a/mps/src/poolawl.c b/mps/src/poolawl.c
index c448d9078c9..eb9c83e7ff6 100644
--- a/mps/src/poolawl.c
+++ b/mps/src/poolawl.c
@@ -1,6 +1,6 @@
 /* impl.c.poolawl: AUTOMATIC WEAK LINKED POOL CLASS
  *
- * $HopeName: MMsrc!poolawl.c(trunk.59) $
+ * $HopeName: MMsrc!poolawl.c(trunk.60) $
  * Copyright (C) 1999.  Harlequin Limited.  All rights reserved.
  *
  * READERSHIP
@@ -45,7 +45,7 @@
 #include "mpm.h"
 
 
-SRCID(poolawl, "$HopeName: MMsrc!poolawl.c(trunk.59) $");
+SRCID(poolawl, "$HopeName: MMsrc!poolawl.c(trunk.60) $");
 
 
 #define AWLSig  ((Sig)0x519b7a37)       /* SIGPooLAWL */
@@ -236,6 +236,7 @@ failControlAllocAlloc:
 failControlAllocScanned:
   ControlFree(arena, awlseg->mark, tableSize);
 failControlAllocMark:
+  super->finish(seg);
   return res;
 }
 
@@ -283,6 +284,7 @@ static void awlSegFinish(Seg seg)
 DEFINE_SEG_CLASS(AWLSegClass, class)
 {
   INHERIT_CLASS(class, GCSegClass);
+  SegClassMixInNoSplitMerge(class);  /* no support for this (yet) */
   class->name = "AWLSEG";
   class->size = sizeof(AWLSegStruct);
   class->init = awlSegInit;