Hadrian: bump Cabal submodule, install extra dynamic flavours of RTS
[ghc.git] / rts / Profiling.h
index 6844a89..45725e5 100644 (file)
@@ -6,15 +6,14 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef PROFILING_H
-#define PROFILING_H
+#pragma once
 
 #include <stdio.h>
 
 #include "BeginPrivate.h"
 #include "Rts.h"
 
-#ifdef PROFILING
+#if defined(PROFILING)
 #define PROFILING_ONLY(s) s
 #else
 #define PROFILING_ONLY(s) doNothing()
@@ -28,10 +27,6 @@ void freeProfiling  (void);
 extern FILE *prof_file;
 extern FILE *hp_file;
 
-#ifdef PROFILING
-
-void reportCCSProfiling ( void );
-
 /* A summary of an execution of a profiled program */
 typedef struct {
     /* Total bytes allocated */
@@ -40,15 +35,20 @@ typedef struct {
     unsigned int total_prof_ticks;
 } ProfilerTotals;
 
+#if defined(PROFILING)
+
+void reportCCSProfiling ( void );
+
 void fprintCCS( FILE *f, CostCentreStack *ccs );
 void fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso);
 
-#ifdef DEBUG
+bool ignoreCCS (CostCentreStack const *ccs);
+bool ignoreCC (CostCentre const *cc);
+
+#if defined(DEBUG)
 void debugCCS( CostCentreStack *ccs );
 #endif
 
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* PROFILING_H */