X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTrace.h;h=fc19e8957a2359693010371b1838c206fbdf6401;hb=de75026f5a48d3d052135a973ab4dff76c5b20f5;hp=530ed1bc123ce061c08062a8bd08f7a7657818ec;hpb=fb1c3f4d3af3d361454f3e0d02d8ea1cb9fc1228;p=ghc-hetmet.git

diff --git a/rts/Trace.h b/rts/Trace.h
index 530ed1b..fc19e89 100644
--- a/rts/Trace.h
+++ b/rts/Trace.h
@@ -2,16 +2,14 @@
  *
  * (c) The GHC Team 2006
  *
- * Debug and performance tracing.  
+ * Debug tracing.  
  *
  * This is a layer over RtsMessages, which provides for generating
- * trace messages with timestamps and thread Ids attached
+ * trace messages with timestamps and task IDs attached
  * automatically.  Also, multiple classes of messages are supported,
  * which can be enabled separately via RTS flags.
  *
- * All debug trace messages go through here.  Additionally, we
- * generate timestamped trace messages for consumption by profiling
- * tools using this API.
+ * All debug trace messages go through here.
  *
  * ---------------------------------------------------------------------------*/
 
@@ -22,6 +20,8 @@
 // Tracing functions
 // -----------------------------------------------------------------------------
 
+#ifdef DEBUG
+
 void initTracing (void);
 
 // The simple way:
@@ -42,17 +42,18 @@ void traceBegin (const char *str, ...)
 
 void traceEnd (void);
 
-#ifdef DEBUG
 #define debugTrace(class, str, ...) trace(class,str, ## __VA_ARGS__)
 // variable arg macros are C99, and supported by gcc.
 #define debugTraceBegin(str, ...) traceBegin(str, ## __VA_ARGS__)
 #define debugTraceEnd() traceEnd()
-#else
+
+#else /* !DEBUG */
+
 #define debugTrace(class, str, ...) /* nothing */
 #define debugTraceBegin(str, ...) /* nothing */
 #define debugTraceEnd() /* nothing */
-#endif
 
+#endif
 
 // -----------------------------------------------------------------------------
 // Message classes, these may be OR-ed together
@@ -73,14 +74,8 @@ void traceEnd (void);
 #define DEBUG_par		   (1<<11)
 #define DEBUG_linker		   (1<<12)
 #define DEBUG_squeeze              (1<<13)
-
-
-
-// Profiling flags
-#define TRACE_sched                (1<<29)
-
-// Coverge flags
-#define DEBUG_hpc                  (1<<30)
+#define DEBUG_hpc                  (1<<14)
+#define DEBUG_eventlog		   (1<<15)
 
 // -----------------------------------------------------------------------------
 // PRIVATE below here