X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FCmdLineOpts.lhs;h=a7f85802a02e74e469c320245a5b31058f0a142c;hb=4e342297f796001e7107d8c348bb023168954bc7;hp=8464affdeb8d38b1c5804e02c146c1fa11400e65;hpb=902b9e8722720cef981a4576e3c2ff906bfb237e;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 8464aff..a7f8580 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -54,6 +54,7 @@ module CmdLineOpts (
 	opt_NoMonomorphismRestriction,
 
 	-- optimisation opts
+	opt_NoMethodSharing,
 	opt_DoSemiTagging,
 	opt_FoldrBuildOn,
 	opt_LiberateCaseThreshold,
@@ -437,6 +438,7 @@ opt_Parallel			= lookUp  SLIT("-fparallel")
 opt_SMP				= lookUp  SLIT("-fsmp")
 
 -- optimisation opts
+opt_NoMethodSharing		= lookUp  SLIT("-fno-method-sharing")
 opt_DoSemiTagging		= lookUp  SLIT("-fsemi-tagging")
 opt_FoldrBuildOn		= lookUp  SLIT("-ffoldr-build-on")
 opt_LiberateCaseThreshold	= lookup_def_int "-fliberate-case-threshold" (10::Int)