From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 7 Jun 2006 14:58:48 +0000 (+0000)
Subject: codegen debug flag (+RTS -Dc) was unused; remove it
X-Git-Tag: Before_FC_branch_merge~409
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=04a046e8fcf175cd00d3ac87510b0b594c8f91e1

codegen debug flag (+RTS -Dc) was unused; remove it
---

diff --git a/includes/RtsFlags.h b/includes/RtsFlags.h
index 17d2363..11d9dbc 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 6f6f2c5..78c8d2a 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;