mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-26 08:41:47 -07:00
Code Issues Projects Releases Wiki Activity

Mps br/gcdiag: trace.c tracestart: diag arenadescribe, and

Browse source 
whiteset for this trace.

Copied from Perforce
 Change: 162965
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2007-07-20 17:50:16 +01:00
parent d50f668fb3
commit 5dff24fb0f
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
mps/code/trace.c
View file

@ -1878,6 +1878,15 @@ void TraceStart(Trace trace, double mortality, double finishingTime)
"MPS: TraceStart, because code $U: $S\n",
trace->why, traceStartWhyToString(trace->why),
NULL ));
/* This one makes too much output; should be #if0 in master */
DIAG( ArenaDescribe(arena, DIAG_STREAM); );
DIAG_WRITEF(( DIAG_STREAM,
"MPS: white set:$B\n",
trace->white,
NULL ));
{ /* @@ */
/* Iterate over all chains, all GenDescs within a chain, and all */
/* PoolGens within a GenDesc. */
@ -1896,7 +1905,7 @@ void TraceStart(Trace trace, double mortality, double finishingTime)
DIAG_WRITEF(( DIAG_STREAM,
"MPS: GenDesc [$U] $P capacity: $U KiB, mortality $D\n",
i, (void *)desc, desc->capacity, desc->mortality,
"MPS: ZoneSet: $B\n", desc->zones,
"MPS: ZoneSet:$B\n", desc->zones,
NULL ));
RING_FOR(n, &desc->locusRing, nn) {
PoolGen gen = RING_ELT(PoolGen, genRing, n);