aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code/trace.c
diff options
context:
space:
mode:
authorRichard Brooksby2013-05-24 19:42:46 +0100
committerRichard Brooksby2013-05-24 19:42:46 +0100
commit5c6785b81531b07a0b66eea35924c1a70599e175 (patch)
tree6a8e23886ae4495b624cbb9e22a7a63d84704f38 /mps/code/trace.c
parentfd8912c287dd2cf32f18c97e8a35eb0d5cd087f0 (diff)
downloademacs-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.c9
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,