[commit: ghc] ghc-7.2: -optm is now deprecated (7e662a7)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-7.2

http://hackage.haskell.org/trac/ghc/changeset/7e662a7bbc94c96975ca732b57136e7c74fbb985

>---------------------------------------------------------------

commit 7e662a7bbc94c96975ca732b57136e7c74fbb985
Author: Ian Lynagh <igloo at earth.li>
Date:   Sun Jul 3 16:58:03 2011 +0100

    -optm is now deprecated

>---------------------------------------------------------------

 compiler/main/DynFlags.hs  |    7 ++-----
 compiler/main/SysTools.lhs |    1 -
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 89617f5..05186da 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -44,7 +44,7 @@ module DynFlags (
         extraGccViaCFlags, systemPackageConfig,
         pgm_L, pgm_P, pgm_F, pgm_c, pgm_s, pgm_a, pgm_l, pgm_dll, pgm_T,
         pgm_sysman, pgm_windres, pgm_lo, pgm_lc,
-        opt_L, opt_P, opt_F, opt_c, opt_m, opt_a, opt_l,
+        opt_L, opt_P, opt_F, opt_c, opt_a, opt_l,
         opt_windres, opt_lo, opt_lc,
 
 
@@ -581,7 +581,6 @@ data Settings = Settings {
   sOpt_P                 :: [String],
   sOpt_F                 :: [String],
   sOpt_c                 :: [String],
-  sOpt_m                 :: [String],
   sOpt_a                 :: [String],
   sOpt_l                 :: [String],
   sOpt_windres           :: [String],
@@ -638,8 +637,6 @@ opt_F                 :: DynFlags -> [String]
 opt_F dflags = sOpt_F (settings dflags)
 opt_c                 :: DynFlags -> [String]
 opt_c dflags = sOpt_c (settings dflags)
-opt_m                 :: DynFlags -> [String]
-opt_m dflags = sOpt_m (settings dflags)
 opt_a                 :: DynFlags -> [String]
 opt_a dflags = sOpt_a (settings dflags)
 opt_l                 :: DynFlags -> [String]
@@ -1336,7 +1333,7 @@ dynamic_flags = [
   , flagA "optP"           (hasArg addOptP)
   , flagA "optF"           (hasArg (\f -> alterSettings (\s -> s { sOpt_F   = f : sOpt_F s})))
   , flagA "optc"           (hasArg (\f -> alterSettings (\s -> s { sOpt_c   = f : sOpt_c s})))
-  , flagA "optm"           (hasArg (\f -> alterSettings (\s -> s { sOpt_m   = f : sOpt_m s})))
+  , flagA "optm"           (HasArg (\_ -> addWarn "The -optm flag does nothing; it will be removed in a future GHC release"))
   , flagA "opta"           (hasArg (\f -> alterSettings (\s -> s { sOpt_a   = f : sOpt_a s})))
   , flagA "optl"           (hasArg addOptl)
   , flagA "optwindres"     (hasArg (\f -> alterSettings (\s -> s { sOpt_windres = f : sOpt_windres s})))
diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index cf91fb9..ea11a20 100644
--- a/compiler/main/SysTools.lhs
+++ b/compiler/main/SysTools.lhs
@@ -269,7 +269,6 @@ initSysTools mbMinusB
                         sOpt_F       = [],
                         sOpt_c       = [],
                         sOpt_a       = [],
-                        sOpt_m       = [],
                         sOpt_l       = [],
                         sOpt_windres = [],
                         sOpt_lo      = [],