mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-23 15:22:20 -07:00
Code Issues Projects Releases Wiki Activity

Collections now non-incremental. simple change to tracepoll to make collections do work until they are finished.

Browse source 
Copied from Perforce
 Change: 186964
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Lovemore 2014-08-18 12:06:03 +01:00
parent e9bac9cb1e
commit 2d10c3a141
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
mps/code/trace.c
View file

@ -1817,6 +1817,7 @@ Size TracePoll(Globals globals)
Res res;
Arena arena;
Size scannedSize;
Bool incremental = FALSE;
AVERT(Globals, globals);
arena = GlobalsArena(globals);
@ -1888,7 +1889,9 @@ Size TracePoll(Globals globals)
trace = ArenaTrace(arena, (TraceId)0);
AVER(arena->busyTraces == TraceSetSingle(trace));
oldScanned = traceWorkClock(trace);
TraceQuantum(trace);
do {
TraceQuantum(trace);
} while(!incremental && trace->state != TraceFINISHED);
scannedSize = traceWorkClock(trace) - oldScanned;
if(trace->state == TraceFINISHED) {
TraceDestroy(trace);