mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-20 20:50:53 -08:00
Code Issues Projects Releases Wiki Activity

Mps: tracestart diag, added poolname and gendesc index.

Browse source 
Copied from Perforce
 Change: 162957
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Jones 2007-07-20 11:21:05 +01:00
parent 7739f79926
commit f142d75661
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
mps/code/trace.c
View file

@ -1862,7 +1862,7 @@ void TraceStart(Trace trace, double mortality, double finishingTime)
/* Iterate over all chains, all GenDescs within a chain, and all */ /* Iterate over all chains, all GenDescs within a chain, and all */
/* PoolGens within a GenDesc. */ /* PoolGens within a GenDesc. */
Ring node, nextNode; Ring node, nextNode;
int i; Index i;
RING_FOR(node, &arena->chainRing, nextNode) { RING_FOR(node, &arena->chainRing, nextNode) {
Chain chain = RING_ELT(Chain, chainRing, node); Chain chain = RING_ELT(Chain, chainRing, node);
@ -1874,13 +1874,13 @@ void TraceStart(Trace trace, double mortality, double finishingTime)
Ring n, nn; Ring n, nn;
GenDesc desc = &chain->gens[i]; GenDesc desc = &chain->gens[i];
DIAG_WRITEF(( DIAG_STREAM, DIAG_WRITEF(( DIAG_STREAM,
"MPS: GenDesc $P capacity: $U KiB, mortality $D\n", "MPS: GenDesc [$U] $P capacity: $U KiB, mortality $D\n",
(void *)desc, desc->capacity, desc->mortality, i, (void *)desc, desc->capacity, desc->mortality,
NULL )); NULL ));
RING_FOR(n, &desc->locusRing, nn) { RING_FOR(n, &desc->locusRing, nn) {
PoolGen gen = RING_ELT(PoolGen, genRing, n); PoolGen gen = RING_ELT(PoolGen, genRing, n);
DIAG_WRITEF(( DIAG_STREAM, DIAG_WRITEF(( DIAG_STREAM,
"MPS: PoolGen $U", gen->nr, "MPS: PoolGen $U ($S)", gen->nr, gen->pool->class->name,
" totalSize $U", gen->totalSize, " totalSize $U", gen->totalSize,
" newSize $U\n", gen->newSizeAtCreate, " newSize $U\n", gen->newSizeAtCreate,
NULL )); NULL ));