mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 07:51:17 -08:00
Code Issues Projects Releases Wiki Activity

Mps br/unfixed-sumamry: calling amcsegallobjsummary() before amcscaninner

Browse source 
shows summary is CORRECT.  So: discrepancy between refs seen by 
AMCSegAllobjSummary() and those seen by AMCScan() of boarded segment.

Copied from Perforce
 Change: 161996
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2007-03-23 17:30:55 +00:00
parent 10a3758342
commit 70eefd4387
1 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
mps/code/trace.c
View file

@ -1125,11 +1125,18 @@ static Res traceScanSegRes(TraceSet ts, Rank rank, Arena arena, Seg seg)
/* following is true whether or not scan was total */
/* See <design/scan/#summary.subset>. */
if (!RefSetSub(ss.unfixedSummary, SegSummary(seg))) {
mps_lib_FILE *stream = mps_lib_get_stdout();
printf("RongRongRongRongRongRongRongRongRongRongRong:\n");
printf(" Total? %s:\n",
(res == ResOK) && wasTotal
? "YES"
: "no");
(void) WriteF(stream,
"Just done PoolScan....\n",
" oldSummary: $B\n", (WriteFB)SegSummary(seg),
" unfSummary: $B\n", (WriteFB)ss.unfixedSummary,
" (wasTotal && ResOK): $U\n", wasTotal && (res == ResOK),
" (Total: $U, Res: $U)\n", wasTotal, res,
NULL
);
SegDescribe(seg, mps_lib_get_stdout());
{
TraceId ti;