mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-11 05:51:21 -08:00
Code Issues Projects Releases Wiki Activity

Mps branch unfixed-summary: failure is during emergency tracing

Browse source 
Copied from Perforce
 Change: 161949
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2007-03-19 14:41:11 +00:00
parent 9ea3e4e3e6
commit 75bc16ac8e
3 changed files with 3245 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

1610
mps/code/a1oEmerg.txt Normal file
View file

File diff suppressed because it is too large Load diff

1620
mps/code/a1pEmerg.txt Normal file
View file

File diff suppressed because it is too large Load diff

23
mps/code/trace.c
View file

@ -488,6 +488,8 @@ static void traceSetSignalEmergency(TraceSet ts, Arena arena)
{
TraceId ti;
Trace trace;
printf(" traceSetSignalEmergency eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee\n");
TRACE_SET_ITER(ti, trace, ts, arena)
trace->emergency = TRUE;
@ -1110,17 +1112,22 @@ static Res traceScanSegRes(TraceSet ts, Rank rank, Arena arena, Seg seg)
TRACE_SET_ITER_END(ti, trace, ts, arena);
});
{
static int fOnce = 0;
if (!fOnce && !RefSetSub(ss.unfixedSummary, SegSummary(seg))) {
fOnce = 1;
SegDescribe(seg, mps_lib_get_stdout());
}
}
/* following is true whether or not scan was total */
/* See <design/scan/#summary.subset>. */
if (!RefSetSub(ss.unfixedSummary, SegSummary(seg))) {
SegDescribe(seg, mps_lib_get_stdout());
{
TraceId ti;
Trace trace;
printf(" Traces:\n");
TRACE_SET_ITER(ti, trace, ts, arena)
/* no TraceDescribe */
printf(" %u: %s\n", ti, (trace->emergency ? "EMERGENCY" : "non-emerg"));
TRACE_SET_ITER_END(ti, trace, ts, arena);
}
}
AVER(RefSetSub(ss.unfixedSummary, SegSummary(seg)));
if (res != ResOK || !wasTotal) {