Adding more events corresponding to diagnostics.

Copied from Perforce
 Change: 179141
 ServerID: perforce.ravenbrook.com

1 files changed, 2 insertions, 0 deletions

diff --git a/mps/code/trace.c b/mps/code/trace.c
index c362a4809cf..9d2ea3af249 100644
--- a/mps/code/trace.c
+++ b/mps/code/trace.c
@@ -219,6 +219,7 @@ Bool traceBandAdvance(Trace trace)
     trace->band = RankAMBIG;
     return FALSE;
   }
+  EVENT3(TraceBandAdvance, trace->arena, trace->ti, trace->band);
   return TRUE;
 }
 
@@ -905,6 +906,7 @@ static Bool traceFindGrey(Seg *segReturn, Rank *rankReturn,
           }
           *segReturn = seg;
           *rankReturn = rank;
+          EVENT4(TraceFindGrey, arena, ti, seg, rank);
           DIAG( traceFindGrey_diag(TRUE, rank); );
           return TRUE;
         }