mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Mps br/diag: trace: always diag_printf-out the reason why this

Browse source 
trace started.  This is just to test the DIAG-out mechanism; it 
only affects variety.di.

Copied from Perforce
 Change: 162389
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2007-05-22 17:49:20 +01:00
parent 6749f30dc0
commit 779bcc1583
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/code/trace.c
View file

@ -1567,13 +1567,11 @@ void TraceStart(Trace trace, double mortality,
AVER(0.0 <= mortality);
AVER(mortality <= 1.0);
AVER(finishingTime >= 0.0);
UNUSED(why);
arena = trace->arena;
if (why != TraceStartWhyCHAIN_GEN0CAP) {
/* a non-minor collection */
DIAG_PRINTF(( "\n>MPS> TraceStart non-minor: %s\n", trace->startMessage.why ));
}
DIAG_PRINTF(( "\nMPS: TraceStart: %s\n", trace->startMessage.why ));
message = TraceStartMessageMessage(&trace->startMessage);
/* Attempt to re-use message.