X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FGC.c;fp=rts%2Fsm%2FGC.c;h=3bd50171c3e16149131ad996fcb09140681c396f;hp=63023b6d93c97bb2fa8e01546888373446c56f7e;hb=015d3d46b6de2f95386a515a7d166d996a0416db;hpb=dcba7784a1af5fd0c054031c49fe159d69af4f86

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 63023b6..3bd5017 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -1008,7 +1008,7 @@ scavenge_until_all_done (void)
 	
 
 loop:
-    traceEvent(&capabilities[gct->thread_index], EVENT_GC_WORK);
+    traceEventGcWork(&capabilities[gct->thread_index]);
 
 #if defined(THREADED_RTS)
     if (n_gc_threads > 1) {
@@ -1023,7 +1023,7 @@ loop:
     // scavenge_loop() only exits when there's no work to do
     r = dec_running();
     
-    traceEvent(&capabilities[gct->thread_index], EVENT_GC_IDLE);
+    traceEventGcIdle(&capabilities[gct->thread_index]);
 
     debugTrace(DEBUG_gc, "%d GC threads still running", r);
     
@@ -1039,7 +1039,7 @@ loop:
         // scavenge_loop() to perform any pending work.
     }
     
-    traceEvent(&capabilities[gct->thread_index], EVENT_GC_DONE);
+    traceEventGcDone(&capabilities[gct->thread_index]);
 }
 
 #if defined(THREADED_RTS)