X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FProfiling.c;h=028dc5a5091bf04fa8cdde31cf382ddf102f5b67;hb=e15f2200821e56b081ebbf012c78aa83dcc47869;hp=bec04fe51f504b2c5936ff9dc2e7d6f2924626cb;hpb=4bd153f2dd93745183584054e17c6ff169691a49;p=ghc-hetmet.git

diff --git a/ghc/rts/Profiling.c b/ghc/rts/Profiling.c
index bec04fe..028dc5a 100644
--- a/ghc/rts/Profiling.c
+++ b/ghc/rts/Profiling.c
@@ -916,6 +916,13 @@ fprintCCS( FILE *f, CostCentreStack *ccs )
   fprintf(f,">");
 }
 
+/* For calling from .cmm code, where we can't reliably refer to stderr */
+void
+fprintCCS_stderr( CostCentreStack *ccs )
+{
+    fprintCCS(stderr, ccs);
+}
+
 #ifdef DEBUG
 void
 debugCCS( CostCentreStack *ccs )
@@ -929,6 +936,6 @@ debugCCS( CostCentreStack *ccs )
   }
   debugBelch(">");
 }
-#endif // DEBUG
+#endif /* DEBUG */
 
 #endif /* PROFILING */