summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Marlow <simonmar@microsoft.com>2006-06-07 14:58:48 +0000
committerSimon Marlow <simonmar@microsoft.com>2006-06-07 14:58:48 +0000
commit04a046e8fcf175cd00d3ac87510b0b594c8f91e1 (patch)
treec6d1a20e74fd0bbb9f6a7ea24c49efd34f87aa2a
parentf07c4a158ebd4e7270266fe04077ea3c931f0672 (diff)
downloadhaskell-04a046e8fcf175cd00d3ac87510b0b594c8f91e1.tar.gz
codegen debug flag (+RTS -Dc) was unused; remove it
-rw-r--r--includes/RtsFlags.h1
-rw-r--r--rts/RtsFlags.c5
2 files changed, 0 insertions, 6 deletions
diff --git a/includes/RtsFlags.h b/includes/RtsFlags.h
index 17d23638e7..11d9dbca80 100644
--- a/includes/RtsFlags.h
+++ b/includes/RtsFlags.h
@@ -49,7 +49,6 @@ struct DEBUG_FLAGS {
/* flags to control debugging output & extra checking in various subsystems */
rtsBool scheduler; /* 's' */
rtsBool interpreter; /* 'i' */
- rtsBool codegen; /* 'c' */
rtsBool weak; /* 'w' */
rtsBool gccafs; /* 'G' */
rtsBool gc; /* 'g' */
diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c
index 6f6f2c5746..78c8d2a6b9 100644
--- a/rts/RtsFlags.c
+++ b/rts/RtsFlags.c
@@ -156,7 +156,6 @@ void initRtsFlagsDefaults(void)
#ifdef DEBUG
RtsFlags.DebugFlags.scheduler = rtsFalse;
RtsFlags.DebugFlags.interpreter = rtsFalse;
- RtsFlags.DebugFlags.codegen = rtsFalse;
RtsFlags.DebugFlags.weak = rtsFalse;
RtsFlags.DebugFlags.gccafs = rtsFalse;
RtsFlags.DebugFlags.gc = rtsFalse;
@@ -400,7 +399,6 @@ usage_text[] = {
#if defined(DEBUG)
" -Ds DEBUG: scheduler",
" -Di DEBUG: interpreter",
-" -Dc DEBUG: codegen",
" -Dw DEBUG: weak",
" -DG DEBUG: gccafs",
" -Dg DEBUG: gc",
@@ -671,9 +669,6 @@ error = rtsTrue;
case 'i':
RtsFlags.DebugFlags.interpreter = rtsTrue;
break;
- case 'c':
- RtsFlags.DebugFlags.codegen = rtsTrue;
- break;
case 'w':
RtsFlags.DebugFlags.weak = rtsTrue;
break;