mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 13:40:36 -08:00
Code Issues Projects Releases Wiki Activity

Mps: added band field to tracestruct. unused.

Browse source 
Copied from Perforce
 Change: 162717
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Jones 2007-07-02 15:43:34 +01:00
parent afe0c9167d
commit f63d05eaaf
2 changed files with 29 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

1
mps/code/mpmst.h
View file

@ -514,6 +514,7 @@ typedef struct TraceStruct {
ZoneSet white; /* zones in the white set */
ZoneSet mayMove; /* zones containing possibly moving objs */
TraceState state; /* current state of trace */
Rank band; /* current band */
Bool emergency; /* ran out of memory during trace */
Chain chain; /* chain being incrementally collected */
Size condemned; /* condemned bytes */

50
mps/code/trace.c
View file

@ -387,36 +387,41 @@ Bool TraceCheck(Trace trace)
CHECKL(ZoneSetSub(trace->mayMove, trace->white));
/* Use trace->state to check more invariants. */
switch(trace->state) {
case TraceINIT:
/* @@@@ What can be checked here? */
break;
case TraceINIT:
/* @@@@ What can be checked here? */
break;
case TraceUNFLIPPED:
CHECKL(!TraceSetIsMember(trace->arena->flippedTraces, trace));
/* @@@@ Assert that mutator is grey for trace. */
break;
case TraceUNFLIPPED:
CHECKL(!TraceSetIsMember(trace->arena->flippedTraces, trace));
/* @@@@ Assert that mutator is grey for trace. */
break;
case TraceFLIPPED:
CHECKL(TraceSetIsMember(trace->arena->flippedTraces, trace));
/* @@@@ Assert that mutator is black for trace. */
break;
case TraceFLIPPED:
CHECKL(TraceSetIsMember(trace->arena->flippedTraces, trace));
/* @@@@ Assert that mutator is black for trace. */
break;
case TraceRECLAIM:
CHECKL(TraceSetIsMember(trace->arena->flippedTraces, trace));
/* @@@@ Assert that grey set is empty for trace. */
break;
case TraceRECLAIM:
CHECKL(TraceSetIsMember(trace->arena->flippedTraces, trace));
/* @@@@ Assert that grey set is empty for trace. */
break;
case TraceFINISHED:
CHECKL(TraceSetIsMember(trace->arena->flippedTraces, trace));
/* @@@@ Assert that grey and white sets is empty for trace. */
break;
case TraceFINISHED:
CHECKL(TraceSetIsMember(trace->arena->flippedTraces, trace));
/* @@@@ Assert that grey and white sets is empty for trace. */
break;
default:
NOTREACHED;
default:
NOTREACHED;
}
/* Valid values for band depend on state. */
if(trace->state == TraceFLIPPED) {
CHECKL(RankCheck(trace->band));
}
CHECKL(BoolCheck(trace->emergency));
if (trace->chain != NULL)
if(trace->chain != NULL) {
CHECKU(Chain, trace->chain);
}
/* @@@@ checks for counts missing */
CHECKD(TraceStartMessage, &trace->startMessage);
return TRUE;
@ -807,6 +812,7 @@ found:
trace->mayMove = ZoneSetEMPTY;
trace->ti = ti;
trace->state = TraceINIT;
trace->band = RankAMBIG; /* Required to be the earliest rank. */
trace->emergency = FALSE;
trace->chain = NULL;
trace->condemned = (Size)0; /* nothing condemned yet */