Make it so that -Ds implies -ls
authorSimon Marlow <marlowsd@gmail.com>
Wed, 23 Sep 2009 10:51:19 +0000 (10:51 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 23 Sep 2009 10:51:19 +0000 (10:51 +0000)
rts/Trace.c

index 8991033..7eabce9 100644 (file)
@@ -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