Merge non-moving garbage collector
[ghc.git] / rts / Trace.c
index ecc28d8..8e44716 100644 (file)
@@ -660,6 +660,7 @@ void traceHeapProfCostCentre(StgWord32 ccID,
     }
 }
 
+// This one is for .hp samples
 void traceHeapProfSampleCostCentre(StgWord8 profile_id,
                                    CostCentreStack *stack, StgWord residency)
 {
@@ -667,6 +668,21 @@ void traceHeapProfSampleCostCentre(StgWord8 profile_id,
         postHeapProfSampleCostCentre(profile_id, stack, residency);
     }
 }
+
+// This one is for .prof samples
+void traceProfSampleCostCentre(Capability *cap,
+                               CostCentreStack *stack, StgWord tick)
+{
+    if (eventlog_enabled) {
+        postProfSampleCostCentre(cap, stack, tick);
+    }
+}
+void traceProfBegin(void)
+{
+    if (eventlog_enabled) {
+        postProfBegin();
+    }
+}
 #endif
 
 #if defined(DEBUG)