1 files changed, 9 insertions, 0 deletions
diff --git a/rts/Profiling.c b/rts/Profiling.c
index 982b9461a0..2c2981a02f 100644
--- a/rts/Profiling.c
+++ b/rts/Profiling.c
@@ -227,6 +227,15 @@ freeProfiling (void)
     arenaFree(prof_arena);
 }
 
+CostCentre *mkCostCentre (char *label, char *module, char *srcloc)
+{
+    CostCentre *cc = stgMallocBytes (sizeof(CostCentre), "mkCostCentre");
+    cc->label = label;
+    cc->module = module;
+    cc->srcloc = srcloc;
+    return cc;
+}
+
 static void
 initProfilingLogFile(void)
 {