summaryrefslogtreecommitdiff
path: root/rts/Trace.c
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2016-08-02 13:09:32 +0100
committerSimon Marlow <marlowsd@gmail.com>2016-08-03 08:07:34 +0100
commit4dcbbd1db1dc18aa07b031fcbad2cf94c0334d3f (patch)
tree7c47018a0bc532b672ac730e306d1a4ecb2de5e1 /rts/Trace.c
parentd1fe08ec15230d5a6c3025ef798a8c911d2fa1c7 (diff)
downloadhaskell-4dcbbd1db1dc18aa07b031fcbad2cf94c0334d3f.tar.gz
Remove the DEBUG_<blah> variables, use RtsFlags directly
Diffstat (limited to 'rts/Trace.c')
-rw-r--r--rts/Trace.c41
1 files changed, 0 insertions, 41 deletions
diff --git a/rts/Trace.c b/rts/Trace.c
index 0dc05d57f7..4eee0263b3 100644
--- a/rts/Trace.c
+++ b/rts/Trace.c
@@ -25,26 +25,6 @@
#include <unistd.h>
#endif
-#ifdef DEBUG
-// debugging flags, set with +RTS -D<something>
-int DEBUG_sched;
-int DEBUG_interp;
-int DEBUG_weak;
-int DEBUG_gccafs;
-int DEBUG_gc;
-int DEBUG_block_alloc;
-int DEBUG_sanity;
-int DEBUG_stable;
-int DEBUG_stm;
-int DEBUG_prof;
-int DEBUG_gran;
-int DEBUG_par;
-int DEBUG_linker;
-int DEBUG_squeeze;
-int DEBUG_hpc;
-int DEBUG_sparks;
-#endif
-
// events
int TRACE_sched;
int TRACE_gc;
@@ -69,27 +49,6 @@ void initTracing (void)
initMutex(&trace_utx);
#endif
-#ifdef DEBUG
-#define DEBUG_FLAG(name, class) \
- class = RtsFlags.DebugFlags.name ? 1 : 0;
-
- DEBUG_FLAG(scheduler, DEBUG_sched);
-
- DEBUG_FLAG(interpreter, DEBUG_interp);
- DEBUG_FLAG(weak, DEBUG_weak);
- DEBUG_FLAG(gccafs, DEBUG_gccafs);
- DEBUG_FLAG(gc, DEBUG_gc);
- DEBUG_FLAG(block_alloc, DEBUG_block_alloc);
- DEBUG_FLAG(sanity, DEBUG_sanity);
- DEBUG_FLAG(stable, DEBUG_stable);
- DEBUG_FLAG(stm, DEBUG_stm);
- DEBUG_FLAG(prof, DEBUG_prof);
- DEBUG_FLAG(linker, DEBUG_linker);
- DEBUG_FLAG(squeeze, DEBUG_squeeze);
- DEBUG_FLAG(hpc, DEBUG_hpc);
- DEBUG_FLAG(sparks, DEBUG_sparks);
-#endif
-
// -Ds turns on scheduler tracing too
TRACE_sched =
RtsFlags.TraceFlags.scheduler ||