From ca0e9b8b2f06b0aa39113764153bd8cf3d4a00a7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 28 Nov 2015 06:33:22 -0700
Subject: [PATCH] report timing of incremental step

---
 racket/src/racket/gc2/newgc.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/racket/src/racket/gc2/newgc.c b/racket/src/racket/gc2/newgc.c
index 185162c2f3..f9a0cd71ab 100644
--- a/racket/src/racket/gc2/newgc.c
+++ b/racket/src/racket/gc2/newgc.c
@@ -5920,6 +5920,7 @@ static void garbage_collect(NewGC *gc, int force_full, int no_full, int switchin
       if (!mark_stack_is_empty(gc->inc_mark_stack)) {
         int fuel = INCREMENTAL_COLLECT_FUEL_PER_100M * ((gc->memory_in_use / (1024 * 1024 * 100)) + 1);
         propagate_incremental_marks(gc, 1, fuel);
+        TIME_STEP("incremented");
       } else {
         /* We ran out of incremental marking work, so
            perform major-GC finalization in one go. */