aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code
diff options
context:
space:
mode:
authorRichard Brooksby2012-09-25 23:46:28 +0100
committerRichard Brooksby2012-09-25 23:46:28 +0100
commit41eb36869ed328cd28e8f75da8033ed14289eb48 (patch)
treeb19f85d378d6ab600dc0483579393b0eb0a5cdbc /mps/code
parentcb8f0ea514ac0b2317c2fc2b76e365895184e1a0 (diff)
downloademacs-41eb36869ed328cd28e8f75da8033ed14289eb48.tar.gz
emacs-41eb36869ed328cd28e8f75da8033ed14289eb48.zip
Converting more "@@@@" markers to notes or action-oriented todos.
Copied from Perforce Change: 179692 ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code')
-rw-r--r--mps/code/pool.c2
-rw-r--r--mps/code/poolamc.c8
-rw-r--r--mps/code/poolmv.c2
-rw-r--r--mps/code/pooln.c2
4 files changed, 8 insertions, 6 deletions
diff --git a/mps/code/pool.c b/mps/code/pool.c
index a88cf48e97c..315bbac4fb2 100644
--- a/mps/code/pool.c
+++ b/mps/code/pool.c
@@ -139,7 +139,7 @@ Res PoolInitV(Pool pool, Arena arena, PoolClass class, va_list args)
139 /* putting another lock in the code. */ 139 /* putting another lock in the code. */
140 class->labelled = TRUE; 140 class->labelled = TRUE;
141 classId = EventInternString(class->name); 141 classId = EventInternString(class->name);
142 /* @@@@ this breaks <design/type/#addr.use> */ 142 /* NOTE: this breaks <design/type/#addr.use> */
143 EventLabelAddr((Addr)class, classId); 143 EventLabelAddr((Addr)class, classId);
144 } 144 }
145 145
diff --git a/mps/code/poolamc.c b/mps/code/poolamc.c
index 90b33ef8f68..1617c2e4f0a 100644
--- a/mps/code/poolamc.c
+++ b/mps/code/poolamc.c
@@ -1444,7 +1444,7 @@ static Res amcScanNailedOnce(Bool *totalReturn, Bool *moreReturn,
1444 Bool total = TRUE; 1444 Bool total = TRUE;
1445 Size bytesScanned = 0; 1445 Size bytesScanned = 0;
1446 1446
1447 EVENT3(AMCScanBegin, amc, seg, ss); /* @@@@ use own event */ 1447 EVENT3(AMCScanBegin, amc, seg, ss); /* TODO: consider using own event */
1448 1448
1449 format = pool->format; 1449 format = pool->format;
1450 amcSegNailboard(seg)->newMarks = FALSE; 1450 amcSegNailboard(seg)->newMarks = FALSE;
@@ -1499,7 +1499,7 @@ static Res amcScanNailedOnce(Bool *totalReturn, Bool *moreReturn,
1499 AVER(p == limit); 1499 AVER(p == limit);
1500 1500
1501returnGood: 1501returnGood:
1502 EVENT3(AMCScanEnd, amc, seg, ss); /* @@@@ use own event */ 1502 EVENT3(AMCScanEnd, amc, seg, ss); /* TODO: consider using own event */
1503 1503
1504 AVER(bytesScanned <= SegSize(seg)); 1504 AVER(bytesScanned <= SegSize(seg));
1505 ss->scannedSize += bytesScanned; 1505 ss->scannedSize += bytesScanned;
@@ -1707,7 +1707,9 @@ static Res AMCFixEmergency(Pool pool, ScanState ss, Seg seg,
1707 ShieldCover(arena, seg); 1707 ShieldCover(arena, seg);
1708 if(newRef != (Addr)0) { 1708 if(newRef != (Addr)0) {
1709 /* Object has been forwarded already, so snap-out pointer. */ 1709 /* Object has been forwarded already, so snap-out pointer. */
1710 /* Useful weak pointer semantics not implemented. @@@@ */ 1710 /* TODO: Implement weak pointer semantics in emergency fixing. This
1711 would be a good idea since we really want to reclaim as much as
1712 possible in an emergency. */
1711 *refIO = newRef; 1713 *refIO = newRef;
1712 return ResOK; 1714 return ResOK;
1713 } 1715 }
diff --git a/mps/code/poolmv.c b/mps/code/poolmv.c
index 91740271dd0..a645eb4d235 100644
--- a/mps/code/poolmv.c
+++ b/mps/code/poolmv.c
@@ -859,7 +859,7 @@ Bool MVCheck(MV mv)
859 CHECKL(mv->extendBy > 0); 859 CHECKL(mv->extendBy > 0);
860 CHECKL(mv->avgSize > 0); 860 CHECKL(mv->avgSize > 0);
861 CHECKL(mv->extendBy >= mv->avgSize); 861 CHECKL(mv->extendBy >= mv->avgSize);
862 /* @@@@ Could do more checks here. */ 862 /* TODO: More checks are possible. Consider what else could be checked. */
863 return TRUE; 863 return TRUE;
864} 864}
865 865
diff --git a/mps/code/pooln.c b/mps/code/pooln.c
index a22d81c23a2..dcd59f65df5 100644
--- a/mps/code/pooln.c
+++ b/mps/code/pooln.c
@@ -141,7 +141,7 @@ static Res NDescribe(Pool pool, mps_lib_FILE *stream)
141 poolN = PoolPoolN(pool); 141 poolN = PoolPoolN(pool);
142 AVERT(PoolN, poolN); 142 AVERT(PoolN, poolN);
143 143
144 UNUSED(stream); /* @@@@ should output something here */ 144 UNUSED(stream); /* TODO: should output something here */
145 145
146 return ResOK; 146 return ResOK;
147} 147}