mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-26 16:51:46 -07:00
Code Issues Projects Releases Wiki Activity

Mps: oopsie, this didn't compile before, but now does.

Browse source 
Copied from Perforce
 Change: 162928
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Jones 2007-07-18 17:10:27 +01:00
parent 56029c8542
commit 5827772eed
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
mps/code/poolawl.c
View file

@ -672,7 +672,7 @@ static void awlRangeWhiten(AWLSeg awlseg, Index base, Index limit)
}
}
Res AWLWhiten(Pool pool, Trace trace, Seg seg)
static Res AWLWhiten(Pool pool, Trace trace, Seg seg)
{
AWL awl;
AWLSeg awlseg;
@ -691,7 +691,7 @@ Res AWLWhiten(Pool pool, Trace trace, Seg seg)
AVER(SegWhite(seg) == TraceSetEMPTY);
if(buffer == NULL) {
AWLRangeWhiten(awlseg, 0, awlseg->grains);
awlRangeWhiten(awlseg, 0, awlseg->grains);
trace->condemned += SegSize(seg);
} else {
/* Whiten everything except the buffer. */
@ -701,8 +701,8 @@ Res AWLWhiten(Pool pool, Trace trace, Seg seg)
Index limitIndex = awlIndexOfAddr(base, awl,
BufferLimit(buffer));
AWLRangeWhiten(awlseg, 0, scanLimitIndex);
AWLRangeWhiten(awlseg, limitIndex, awlseg->grains);
awlRangeWhiten(awlseg, 0, scanLimitIndex);
awlRangeWhiten(awlseg, limitIndex, awlseg->grains);
/* Check the buffer is black. */
/* This really ought to change when we have a non-trivial */