mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-21 12:03:55 -08:00
Code Issues Projects Releases Wiki Activity

Change.mps.dylan.kinglet.160189

Browse source 
Don't support segment splitting & merging

Copied from Perforce
 Change: 21064
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Tony Mann 2000-01-11 11:49:55 +00:00
parent bfacc7b3ac
commit 863b804e31
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/src/poolawl.c
View file

@ -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;