mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-20 12:40:56 -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 */
/* PoolGens within a GenDesc. */
Ring node, nextNode;
int i;
Index i;
RING_FOR(node, &arena->chainRing, nextNode) {
Chain chain = RING_ELT(Chain, chainRing, node);
@ -1874,13 +1874,13 @@ void TraceStart(Trace trace, double mortality, double finishingTime)
Ring n, nn;
GenDesc desc = &chain->gens[i];
DIAG_WRITEF(( DIAG_STREAM,
"MPS: GenDesc $P capacity: $U KiB, mortality $D\n",
(void *)desc, desc->capacity, desc->mortality,
"MPS: GenDesc [$U] $P capacity: $U KiB, mortality $D\n",
i, (void *)desc, desc->capacity, desc->mortality,
NULL ));
RING_FOR(n, &desc->locusRing, nn) {
PoolGen gen = RING_ELT(PoolGen, genRing, n);
DIAG_WRITEF(( DIAG_STREAM,
"MPS: PoolGen $U", gen->nr,
"MPS: PoolGen $U ($S)", gen->nr, gen->pool->class->name,
" totalSize $U", gen->totalSize,
" newSize $U\n", gen->newSizeAtCreate,
NULL ));