From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 23 Sep 2009 10:51:19 +0000 (+0000)
Subject: Make it so that -Ds implies -ls
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b8766c9aa00be4bfb0dd5ba7236e43027244dcdc

Make it so that -Ds implies -ls
---

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