[project @ 2000-10-27 14:45:18 by simonmar]

fix some obvious bogons

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 8e7ac15..28ca874 100644 (file)
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.10 2000/10/27 11:48:55 sewardj Exp $
+-- $Id: DriverFlags.hs,v 1.11 2000/10/27 14:45:18 simonmar Exp $
 --
 -- Driver flags
 --
@@ -328,61 +328,61 @@ dynamic_flags = [
        ------ Debugging ----------------------------------------------------
   ,  ( "dstg-stats",   NoArg (writeIORef v_StgStats True) )
 
-  ,  ( "ddump_all",             NoArg (setDynFlag Opt_D_dump_all) )
-  ,  ( "ddump_most",            NoArg (setDynFlag Opt_D_dump_most) )
-  ,  ( "ddump_absC",            NoArg (setDynFlag Opt_D_dump_absC) )
-  ,  ( "ddump_asm",             NoArg (setDynFlag Opt_D_dump_asm) )
-  ,  ( "ddump_cpranal",         NoArg (setDynFlag Opt_D_dump_cpranal) )
-  ,  ( "ddump_deriv",           NoArg (setDynFlag Opt_D_dump_deriv) )
-  ,  ( "ddump_ds",              NoArg (setDynFlag Opt_D_dump_ds) )
-  ,  ( "ddump_flatC",           NoArg (setDynFlag Opt_D_dump_flatC) )
-  ,  ( "ddump_foreign",         NoArg (setDynFlag Opt_D_dump_foreign) )
-  ,  ( "ddump_inlinings",       NoArg (setDynFlag Opt_D_dump_inlinings) )
-  ,  ( "ddump_occur_anal",      NoArg (setDynFlag Opt_D_dump_occur_anal) )
-  ,  ( "ddump_parsed",          NoArg (setDynFlag Opt_D_dump_parsed) )
-  ,  ( "ddump_realC",           NoArg (setDynFlag Opt_D_dump_realC) )
-  ,  ( "ddump_rn",              NoArg (setDynFlag Opt_D_dump_rn) )
-  ,  ( "ddump_simpl",           NoArg (setDynFlag Opt_D_dump_simpl) )
-  ,  ( "ddump_simpl_iterations", NoArg (setDynFlag Opt_D_dump_simpl_iterations) )
-  ,  ( "ddump_spec",            NoArg (setDynFlag Opt_D_dump_spec) )
-  ,  ( "ddump_stg",             NoArg (setDynFlag Opt_D_dump_stg) )
-  ,  ( "ddump_stranal",         NoArg (setDynFlag Opt_D_dump_stranal) )
-  ,  ( "ddump_tc",              NoArg (setDynFlag Opt_D_dump_tc) )
-  ,  ( "ddump_types",           NoArg (setDynFlag Opt_D_dump_types) )
-  ,  ( "ddump_rules",           NoArg (setDynFlag Opt_D_dump_rules) )
-  ,  ( "ddump_usagesp",         NoArg (setDynFlag Opt_D_dump_usagesp) )
-  ,  ( "ddump_cse",             NoArg (setDynFlag Opt_D_dump_cse) )
-  ,  ( "ddump_worker_wrapper",   NoArg (setDynFlag Opt_D_dump_worker_wrapper) )
-  ,  ( "dshow_passes",           NoArg (setDynFlag Opt_D_show_passes) )
-  ,  ( "ddump_rn_trace",         NoArg (setDynFlag Opt_D_dump_rn_trace) )
-  ,  ( "ddump_rn_stats",         NoArg (setDynFlag Opt_D_dump_rn_stats) )
-  ,  ( "ddump_stix",             NoArg (setDynFlag Opt_D_dump_stix) )
-  ,  ( "ddump_simpl_stats",      NoArg (setDynFlag Opt_D_dump_simpl_stats) )
-  ,  ( "dsource_stats",          NoArg (setDynFlag Opt_D_source_stats) )
-  ,  ( "dverbose_core2core",     NoArg (setDynFlag Opt_D_verbose_core2core) )
-  ,  ( "dverbose_stg2stg",       NoArg (setDynFlag Opt_D_verbose_stg2stg) )
-  ,  ( "ddump_hi_diffs",         NoArg (setDynFlag Opt_D_dump_hi_diffs) )
-  ,  ( "ddump_minimal_imports",  NoArg (setDynFlag Opt_D_dump_minimal_imports) )
-  ,  ( "DoCoreLinting",         NoArg (setDynFlag Opt_DoCoreLinting) )
-  ,  ( "DoStgLinting",          NoArg (setDynFlag Opt_DoStgLinting) )
-  ,  ( "DoUSPLinting",          NoArg (setDynFlag Opt_DoUSPLinting) )
+  ,  ( "ddump-all",             NoArg (setDynFlag Opt_D_dump_all) )
+  ,  ( "ddump-most",            NoArg (setDynFlag Opt_D_dump_most) )
+  ,  ( "ddump-absC",            NoArg (setDynFlag Opt_D_dump_absC) )
+  ,  ( "ddump-asm",             NoArg (setDynFlag Opt_D_dump_asm) )
+  ,  ( "ddump-cpranal",         NoArg (setDynFlag Opt_D_dump_cpranal) )
+  ,  ( "ddump-deriv",           NoArg (setDynFlag Opt_D_dump_deriv) )
+  ,  ( "ddump-ds",              NoArg (setDynFlag Opt_D_dump_ds) )
+  ,  ( "ddump-flatC",           NoArg (setDynFlag Opt_D_dump_flatC) )
+  ,  ( "ddump-foreign",         NoArg (setDynFlag Opt_D_dump_foreign) )
+  ,  ( "ddump-inlinings",       NoArg (setDynFlag Opt_D_dump_inlinings) )
+  ,  ( "ddump-occur-anal",      NoArg (setDynFlag Opt_D_dump_occur_anal) )
+  ,  ( "ddump-parsed",          NoArg (setDynFlag Opt_D_dump_parsed) )
+  ,  ( "ddump-realC",           NoArg (setDynFlag Opt_D_dump_realC) )
+  ,  ( "ddump-rn",              NoArg (setDynFlag Opt_D_dump_rn) )
+  ,  ( "ddump-simpl",           NoArg (setDynFlag Opt_D_dump_simpl) )
+  ,  ( "ddump-simpl-iterations", NoArg (setDynFlag Opt_D_dump_simpl_iterations) )
+  ,  ( "ddump-spec",            NoArg (setDynFlag Opt_D_dump_spec) )
+  ,  ( "ddump-stg",             NoArg (setDynFlag Opt_D_dump_stg) )
+  ,  ( "ddump-stranal",         NoArg (setDynFlag Opt_D_dump_stranal) )
+  ,  ( "ddump-tc",              NoArg (setDynFlag Opt_D_dump_tc) )
+  ,  ( "ddump-types",           NoArg (setDynFlag Opt_D_dump_types) )
+  ,  ( "ddump-rules",           NoArg (setDynFlag Opt_D_dump_rules) )
+  ,  ( "ddump-usagesp",         NoArg (setDynFlag Opt_D_dump_usagesp) )
+  ,  ( "ddump-cse",             NoArg (setDynFlag Opt_D_dump_cse) )
+  ,  ( "ddump-worker-wrapper",   NoArg (setDynFlag Opt_D_dump_worker_wrapper) )
+  ,  ( "dshow-passes",           NoArg (setDynFlag Opt_D_show_passes) )
+  ,  ( "ddump-rn-trace",         NoArg (setDynFlag Opt_D_dump_rn_trace) )
+  ,  ( "ddump-rn-stats",         NoArg (setDynFlag Opt_D_dump_rn_stats) )
+  ,  ( "ddump-stix",             NoArg (setDynFlag Opt_D_dump_stix) )
+  ,  ( "ddump-simpl-stats",      NoArg (setDynFlag Opt_D_dump_simpl_stats) )
+  ,  ( "dsource-stats",          NoArg (setDynFlag Opt_D_source_stats) )
+  ,  ( "dverbose-core2core",     NoArg (setDynFlag Opt_D_verbose_core2core) )
+  ,  ( "dverbose-stg2stg",       NoArg (setDynFlag Opt_D_verbose_stg2stg) )
+  ,  ( "ddump-hi-diffs",         NoArg (setDynFlag Opt_D_dump_hi_diffs) )
+  ,  ( "ddump-minimal-imports",  NoArg (setDynFlag Opt_D_dump_minimal_imports) )
+  ,  ( "dcore-lint",            NoArg (setDynFlag Opt_DoCoreLinting) )
+  ,  ( "dstg-lint",             NoArg (setDynFlag Opt_DoStgLinting) )
+  ,  ( "dusagesp-lint",                 NoArg (setDynFlag Opt_DoUSPLinting) )
 
        ------ Warnings ----------------------------------------------------
 
-  ,  ( "-fwarn-duplicate-exports", NoArg (setDynFlag Opt_WarnDuplicateExports) )
-  ,  ( "-fwarn-hi-shadowing",      NoArg (setDynFlag Opt_WarnHiShadows) )
-  ,  ( "-fwarn-incomplete-patterns",  NoArg (setDynFlag Opt_WarnIncompletePatterns) )
-  ,  ( "-fwarn-missing-fields",    NoArg (setDynFlag Opt_WarnMissingFields) )
-  ,  ( "-fwarn-missing-methods",   NoArg (setDynFlag Opt_WarnMissingMethods))
-  ,  ( "-fwarn-missing-signatures", NoArg (setDynFlag Opt_WarnMissingSigs) )
-  ,  ( "-fwarn-name-shadowing",    NoArg (setDynFlag Opt_WarnNameShadowing) )
-  ,  ( "-fwarn-overlapping-patterns", NoArg (setDynFlag Opt_WarnOverlappingPatterns ) )
-  ,  ( "-fwarn-simple-patterns",   NoArg (setDynFlag Opt_WarnSimplePatterns))
-  ,  ( "-fwarn-type-defaults",     NoArg (setDynFlag Opt_WarnTypeDefaults) )
-  ,  ( "-fwarn-unused-binds",      NoArg (setDynFlag Opt_WarnUnusedBinds) )
-  ,  ( "-fwarn-unused-imports",    NoArg (setDynFlag Opt_WarnUnusedImports) )
-  ,  ( "-fwarn-unused-matches",    NoArg (setDynFlag Opt_WarnUnusedMatches) )
-  ,  ( "-fwarn-deprecations",      NoArg (setDynFlag Opt_WarnDeprecations) )
+  ,  ( "fwarn-duplicate-exports", NoArg (setDynFlag Opt_WarnDuplicateExports) )
+  ,  ( "fwarn-hi-shadowing",      NoArg (setDynFlag Opt_WarnHiShadows) )
+  ,  ( "fwarn-incomplete-patterns",  NoArg (setDynFlag Opt_WarnIncompletePatterns) )
+  ,  ( "fwarn-missing-fields",    NoArg (setDynFlag Opt_WarnMissingFields) )
+  ,  ( "fwarn-missing-methods",   NoArg (setDynFlag Opt_WarnMissingMethods))
+  ,  ( "fwarn-missing-signatures", NoArg (setDynFlag Opt_WarnMissingSigs) )
+  ,  ( "fwarn-name-shadowing",    NoArg (setDynFlag Opt_WarnNameShadowing) )
+  ,  ( "fwarn-overlapping-patterns", NoArg (setDynFlag Opt_WarnOverlappingPatterns ) )
+  ,  ( "fwarn-simple-patterns",   NoArg (setDynFlag Opt_WarnSimplePatterns))
+  ,  ( "fwarn-type-defaults",     NoArg (setDynFlag Opt_WarnTypeDefaults) )
+  ,  ( "fwarn-unused-binds",      NoArg (setDynFlag Opt_WarnUnusedBinds) )
+  ,  ( "fwarn-unused-imports",    NoArg (setDynFlag Opt_WarnUnusedImports) )
+  ,  ( "fwarn-unused-matches",    NoArg (setDynFlag Opt_WarnUnusedMatches) )
+  ,  ( "fwarn-deprecations",      NoArg (setDynFlag Opt_WarnDeprecations) )
 
        ------ Machine dependant (-m<blah>) stuff ---------------------------