diff options
author | Simon Marlow <marlowsd@gmail.com> | 2016-08-02 13:09:32 +0100 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2016-08-03 08:07:34 +0100 |
commit | 4dcbbd1db1dc18aa07b031fcbad2cf94c0334d3f (patch) | |
tree | 7c47018a0bc532b672ac730e306d1a4ecb2de5e1 /rts/Trace.c | |
parent | d1fe08ec15230d5a6c3025ef798a8c911d2fa1c7 (diff) | |
download | haskell-4dcbbd1db1dc18aa07b031fcbad2cf94c0334d3f.tar.gz |
Remove the DEBUG_<blah> variables, use RtsFlags directly
Diffstat (limited to 'rts/Trace.c')
-rw-r--r-- | rts/Trace.c | 41 |
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 || |