diff options
| author | Richard Brooksby | 2013-05-24 19:42:46 +0100 |
|---|---|---|
| committer | Richard Brooksby | 2013-05-24 19:42:46 +0100 |
| commit | 5c6785b81531b07a0b66eea35924c1a70599e175 (patch) | |
| tree | 6a8e23886ae4495b624cbb9e22a7a63d84704f38 /mps/code/trace.c | |
| parent | fd8912c287dd2cf32f18c97e8a35eb0d5cd087f0 (diff) | |
| download | emacs-5c6785b81531b07a0b66eea35924c1a70599e175.tar.gz emacs-5c6785b81531b07a0b66eea35924c1a70599e175.zip | |
Catch-up merge from custom/cet/main to master.
Includes installable assertion handler, events in circular memory buffers, LARGEADDRESSAWARE, etc.
Copied from Perforce
Change: 182176
ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code/trace.c')
| -rw-r--r-- | mps/code/trace.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/mps/code/trace.c b/mps/code/trace.c index 9401696ba2d..041b136711f 100644 --- a/mps/code/trace.c +++ b/mps/code/trace.c | |||
| @@ -732,6 +732,8 @@ found: | |||
| 732 | arena->busyTraces = TraceSetAdd(arena->busyTraces, trace); | 732 | arena->busyTraces = TraceSetAdd(arena->busyTraces, trace); |
| 733 | AVERT(Trace, trace); | 733 | AVERT(Trace, trace); |
| 734 | 734 | ||
| 735 | EVENT3(TraceCreate, trace, arena, (EventFU)why); | ||
| 736 | |||
| 735 | /* We suspend the mutator threads so that the PoolWhiten methods */ | 737 | /* We suspend the mutator threads so that the PoolWhiten methods */ |
| 736 | /* can calculate white sets without the mutator allocating in */ | 738 | /* can calculate white sets without the mutator allocating in */ |
| 737 | /* buffers under our feet. */ | 739 | /* buffers under our feet. */ |
| @@ -1681,7 +1683,7 @@ Res TraceStart(Trace trace, double mortality, double finishingTime) | |||
| 1681 | AVER(finishingTime >= 0.0); | 1683 | AVER(finishingTime >= 0.0); |
| 1682 | 1684 | ||
| 1683 | arena = trace->arena; | 1685 | arena = trace->arena; |
| 1684 | 1686 | ||
| 1685 | /* From the already set up white set, derive a grey set. */ | 1687 | /* From the already set up white set, derive a grey set. */ |
| 1686 | 1688 | ||
| 1687 | /* @@@@ Instead of iterating over all the segments, we could */ | 1689 | /* @@@@ Instead of iterating over all the segments, we could */ |
| @@ -1789,6 +1791,11 @@ Res TraceStart(Trace trace, double mortality, double finishingTime) | |||
| 1789 | 1791 | ||
| 1790 | /* @@ DIAG for rate of scanning here. */ | 1792 | /* @@ DIAG for rate of scanning here. */ |
| 1791 | 1793 | ||
| 1794 | EVENT8(TraceStart, trace, mortality, finishingTime, | ||
| 1795 | trace->condemned, trace->notCondemned, | ||
| 1796 | trace->foundation, trace->white, | ||
| 1797 | trace->rate); | ||
| 1798 | |||
| 1792 | STATISTIC_STAT(EVENT7(TraceStatCondemn, trace, | 1799 | STATISTIC_STAT(EVENT7(TraceStatCondemn, trace, |
| 1793 | trace->condemned, trace->notCondemned, | 1800 | trace->condemned, trace->notCondemned, |
| 1794 | trace->foundation, trace->rate, | 1801 | trace->foundation, trace->rate, |