X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTrace.c;fp=rts%2FTrace.c;h=7eabce991c20aa8d395295a78b0955306f6237af;hb=b8766c9aa00be4bfb0dd5ba7236e43027244dcdc;hp=8991033213312d6fa90d939f333dc0a5c57af8f3;hpb=c6660342270b6121242b77d09cdc38fa2f7f3103;p=ghc-hetmet.git

diff --git a/rts/Trace.c b/rts/Trace.c
index 8991033..7eabce9 100644
--- a/rts/Trace.c
+++ b/rts/Trace.c
@@ -58,6 +58,11 @@ void initTracing (void)
     initMutex(&trace_utx);
 #endif
 
+#define TRACE_FLAG(name, class) \
+    class = RtsFlags.TraceFlags.name ? 1 : 0;
+
+    TRACE_FLAG(scheduler, TRACE_sched);
+
 #ifdef DEBUG
 #define DEBUG_FLAG(name, class) \
     class = RtsFlags.DebugFlags.name ? 1 : 0;
@@ -80,11 +85,6 @@ void initTracing (void)
     DEBUG_FLAG(sparks,       DEBUG_sparks);
 #endif
 
-#define TRACE_FLAG(name, class) \
-    class = RtsFlags.TraceFlags.name ? 1 : 0;
-
-    TRACE_FLAG(scheduler, TRACE_sched);
-
     eventlog_enabled = !RtsFlags.TraceFlags.trace_stderr && (
                        TRACE_sched
 #ifdef DEBUG