mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-20 11:33:09 -08:00
Code Issues Projects Releases Wiki Activity

Don't reclaim buffered segs

Browse source 
Copied from Perforce
 Change: 19643
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 1998-06-09 14:14:35 +01:00
parent 75048bb594
commit 5966e61624
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/src/poolams.c
View file

@ -1,6 +1,6 @@
/* impl.c.poolams: AUTOMATIC MARK & SWEEP POOL CLASS
*
* $HopeName$
* $HopeName: MMsrc!poolams.c(trunk.23) $
* Copyright (C) 1998. Harlequin Group plc. All rights reserved.
*
* .readership: any MPS developer.
@ -26,7 +26,7 @@
#include "mpm.h"
#include <stdarg.h>
SRCID(poolams, "$HopeName: MMsrc!poolams.c(trunk.22) $");
SRCID(poolams, "$HopeName: MMsrc!poolams.c(trunk.23) $");
#define AMSSig ((Sig)0x519A3599) /* SIGnature AMS */
@ -926,7 +926,7 @@ void AMSReclaim(Pool pool, Trace trace, Seg seg)
group->free += reclaimed;
trace->reclaimSize += reclaimed << ams->grainShift;
if(group->free == group->grains) {
if(group->free == group->grains && SegBuffer(seg) == NULL) {
/* No survivors */
AMSGroupDestroy(group);
/* design.mps.poolams.benefit.guess */