aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code/trace.c
diff options
context:
space:
mode:
authorNick Barnes2001-12-17 15:18:17 +0000
committerNick Barnes2001-12-17 15:18:17 +0000
commitdb4b3a6fa51ea452f62ed64612da5466d7bc292e (patch)
tree4401c0c97d4df2e1c48ad06f263c27199e92d5dc /mps/code/trace.c
parentc864931fe4271b6592ca4a76ce856938d263c74a (diff)
downloademacs-db4b3a6fa51ea452f62ed64612da5466d7bc292e.tar.gz
emacs-db4b3a6fa51ea452f62ed64612da5466d7bc292e.zip
Remove trailing whitespace.
Copied from Perforce Change: 25309 ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code/trace.c')
-rw-r--r--mps/code/trace.c40
1 files changed, 20 insertions, 20 deletions
diff --git a/mps/code/trace.c b/mps/code/trace.c
index 7ff3de4e2a1..5b118e87bb6 100644
--- a/mps/code/trace.c
+++ b/mps/code/trace.c
@@ -35,11 +35,11 @@ typedef struct TraceMessageStruct {
35#define MessageTraceMessage(message) \ 35#define MessageTraceMessage(message) \
36 (PARENT(TraceMessageStruct, messageStruct, message)) 36 (PARENT(TraceMessageStruct, messageStruct, message))
37 37
38static Bool TraceMessageCheck(TraceMessage message) 38static Bool TraceMessageCheck(TraceMessage message)
39{ 39{
40 CHECKS(TraceMessage, message); 40 CHECKS(TraceMessage, message);
41 CHECKD(Message, TraceMessageMessage(message)); 41 CHECKD(Message, TraceMessageMessage(message));
42 CHECKL(MessageGetType(TraceMessageMessage(message)) == 42 CHECKL(MessageGetType(TraceMessageMessage(message)) ==
43 MessageTypeGC); 43 MessageTypeGC);
44 /* We can't check anything about the statistics. In particular, */ 44 /* We can't check anything about the statistics. In particular, */
45 /* liveSize may exceed condemnedSize because they are only estimates. */ 45 /* liveSize may exceed condemnedSize because they are only estimates. */
@@ -60,7 +60,7 @@ static void TraceMessageDelete(Message message)
60 ControlFree(arena, (void *)tMessage, sizeof(TraceMessageStruct)); 60 ControlFree(arena, (void *)tMessage, sizeof(TraceMessageStruct));
61} 61}
62 62
63static Size TraceMessageLiveSize(Message message) 63static Size TraceMessageLiveSize(Message message)
64{ 64{
65 TraceMessage tMessage; 65 TraceMessage tMessage;
66 66
@@ -71,7 +71,7 @@ static Size TraceMessageLiveSize(Message message)
71 return tMessage->liveSize; 71 return tMessage->liveSize;
72} 72}
73 73
74static Size TraceMessageCondemnedSize(Message message) 74static Size TraceMessageCondemnedSize(Message message)
75{ 75{
76 TraceMessage tMessage; 76 TraceMessage tMessage;
77 77
@@ -82,7 +82,7 @@ static Size TraceMessageCondemnedSize(Message message)
82 return tMessage->condemnedSize; 82 return tMessage->condemnedSize;
83} 83}
84 84
85static Size TraceMessageNotCondemnedSize(Message message) 85static Size TraceMessageNotCondemnedSize(Message message)
86{ 86{
87 TraceMessage tMessage; 87 TraceMessage tMessage;
88 88
@@ -381,7 +381,7 @@ Res TraceAddWhite(Trace trace, Seg seg)
381 trace->white = ZoneSetUnion(trace->white, ZoneSetOfSeg(trace->arena, seg)); 381 trace->white = ZoneSetUnion(trace->white, ZoneSetOfSeg(trace->arena, seg));
382 /* if the pool is a moving GC, then condemned objects may move */ 382 /* if the pool is a moving GC, then condemned objects may move */
383 if (pool->class->attr & AttrMOVINGGC) { 383 if (pool->class->attr & AttrMOVINGGC) {
384 trace->mayMove = ZoneSetUnion(trace->mayMove, 384 trace->mayMove = ZoneSetUnion(trace->mayMove,
385 ZoneSetOfSeg(trace->arena, seg)); 385 ZoneSetOfSeg(trace->arena, seg));
386 } 386 }
387 } 387 }
@@ -650,7 +650,7 @@ found:
650 trace->emergency = FALSE; 650 trace->emergency = FALSE;
651 trace->chain = NULL; 651 trace->chain = NULL;
652 trace->condemned = (Size)0; /* nothing condemned yet */ 652 trace->condemned = (Size)0; /* nothing condemned yet */
653 trace->notCondemned = (Size)0; 653 trace->notCondemned = (Size)0;
654 trace->foundation = (Size)0; /* nothing grey yet */ 654 trace->foundation = (Size)0; /* nothing grey yet */
655 trace->rate = (Size)0; /* no scanning to be done yet */ 655 trace->rate = (Size)0; /* no scanning to be done yet */
656 STATISTIC(trace->greySegCount = (Count)0); 656 STATISTIC(trace->greySegCount = (Count)0);
@@ -712,7 +712,7 @@ void TraceDestroy(Trace trace)
712 /* Notify all the chains. */ 712 /* Notify all the chains. */
713 RING_FOR(chainNode, &trace->arena->chainRing, nextChainNode) { 713 RING_FOR(chainNode, &trace->arena->chainRing, nextChainNode) {
714 Chain chain = RING_ELT(Chain, chainRing, chainNode); 714 Chain chain = RING_ELT(Chain, chainRing, chainNode);
715 715
716 ChainEndGC(chain, trace); 716 ChainEndGC(chain, trace);
717 } 717 }
718 } else { 718 } else {
@@ -1083,7 +1083,7 @@ Res TraceFix(ScanState ss, Ref *refIO)
1083 if (res != ResOK) 1083 if (res != ResOK)
1084 return res; 1084 return res;
1085 } 1085 }
1086 } else { 1086 } else {
1087 /* Tract isn't white. Don't compute seg for non-statistical */ 1087 /* Tract isn't white. Don't compute seg for non-statistical */
1088 /* variety. See design.mps.trace.fix.tractofaddr */ 1088 /* variety. See design.mps.trace.fix.tractofaddr */
1089 STATISTIC_STAT 1089 STATISTIC_STAT
@@ -1136,7 +1136,7 @@ Res TraceFixEmergency(ScanState ss, Ref *refIO)
1136 pool = TractPool(tract); 1136 pool = TractPool(tract);
1137 PoolFixEmergency(pool, ss, seg, refIO); 1137 PoolFixEmergency(pool, ss, seg, refIO);
1138 } 1138 }
1139 } else { 1139 } else {
1140 /* Tract isn't white. Don't compute seg for non-statistical */ 1140 /* Tract isn't white. Don't compute seg for non-statistical */
1141 /* variety. See design.mps.trace.fix.tractofaddr */ 1141 /* variety. See design.mps.trace.fix.tractofaddr */
1142 STATISTIC_STAT 1142 STATISTIC_STAT
@@ -1163,7 +1163,7 @@ Res TraceFixEmergency(ScanState ss, Ref *refIO)
1163 1163
1164/* traceScanSingleRefRes -- scan a single reference, with result code */ 1164/* traceScanSingleRefRes -- scan a single reference, with result code */
1165 1165
1166static Res traceScanSingleRefRes(TraceSet ts, Rank rank, Arena arena, 1166static Res traceScanSingleRefRes(TraceSet ts, Rank rank, Arena arena,
1167 Seg seg, Ref *refIO) 1167 Seg seg, Ref *refIO)
1168{ 1168{
1169 RefSet summary; 1169 RefSet summary;
@@ -1422,7 +1422,7 @@ void TraceStart(Trace trace, double mortality, double finishingTime)
1422 if (TraceSetIsMember(SegGrey(seg), trace)) 1422 if (TraceSetIsMember(SegGrey(seg), trace))
1423 trace->foundation += size; 1423 trace->foundation += size;
1424 } 1424 }
1425 1425
1426 if ((SegPool(seg)->class->attr & AttrGC) 1426 if ((SegPool(seg)->class->attr & AttrGC)
1427 && !TraceSetIsMember(SegWhite(seg), trace)) 1427 && !TraceSetIsMember(SegWhite(seg), trace))
1428 trace->notCondemned += size; 1428 trace->notCondemned += size;
@@ -1464,7 +1464,7 @@ void TraceStart(Trace trace, double mortality, double finishingTime)
1464} 1464}
1465 1465
1466 1466
1467/* traceWorkClock -- a measure of the work done for this trace 1467/* traceWorkClock -- a measure of the work done for this trace
1468 * 1468 *
1469 * .workclock: Segment scanning work is the regulator. */ 1469 * .workclock: Segment scanning work is the regulator. */
1470 1470
@@ -1514,9 +1514,9 @@ void TracePoll(Globals globals)
1514 Trace trace; 1514 Trace trace;
1515 Res res; 1515 Res res;
1516 Arena arena; 1516 Arena arena;
1517 1517
1518 AVERT(Globals, globals); 1518 AVERT(Globals, globals);
1519 arena = GlobalsArena(globals); 1519 arena = GlobalsArena(globals);
1520 1520
1521 if (arena->busyTraces == TraceSetEMPTY) { 1521 if (arena->busyTraces == TraceSetEMPTY) {
1522 /* If no traces are going on, see if we need to start one. */ 1522 /* If no traces are going on, see if we need to start one. */
@@ -1616,18 +1616,18 @@ void ArenaRelease(Globals globals)
1616 1616
1617 1617
1618/* ArenaClamp -- finish all collections and clamp the arena */ 1618/* ArenaClamp -- finish all collections and clamp the arena */
1619 1619
1620void ArenaPark(Globals globals) 1620void ArenaPark(Globals globals)
1621{ 1621{
1622 TraceId ti; 1622 TraceId ti;
1623 Trace trace; 1623 Trace trace;
1624 Arena arena; 1624 Arena arena;
1625 1625
1626 AVERT(Globals, globals); 1626 AVERT(Globals, globals);
1627 arena = GlobalsArena(globals); 1627 arena = GlobalsArena(globals);
1628 1628
1629 globals->clamped = TRUE; 1629 globals->clamped = TRUE;
1630 1630
1631 while (arena->busyTraces != TraceSetEMPTY) { 1631 while (arena->busyTraces != TraceSetEMPTY) {
1632 /* Poll active traces to make progress. */ 1632 /* Poll active traces to make progress. */
1633 TRACE_SET_ITER(ti, trace, arena->busyTraces, arena) 1633 TRACE_SET_ITER(ti, trace, arena->busyTraces, arena)