[project @ 1996-04-25 16:31:20 by partain]

[ghc-hetmet.git] / ghc / compiler / main / CmdLineOpts.lhs

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index e0a0382..8bbfa55 100644 (file)
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -216,7 +216,6 @@ opt_SpecialiseOverloaded    = lookup  SLIT("-fspecialise-overloaded")
 opt_SpecialiseTrace            = lookup  SLIT("-ftrace-specialisation")
 opt_SpecialiseUnboxed          = lookup  SLIT("-fspecialise-unboxed")
 opt_StgDoLetNoEscapes          = lookup  SLIT("-flet-no-escape")
-opt_UseGetMentionedVars                = lookup  SLIT("-fuse-get-mentioned-vars")
 opt_Verbose                    = lookup  SLIT("-v")
 opt_AsmTarget                  = lookup_str "-fasm="
 opt_SccGroup                   = lookup_str "-G="
@@ -224,6 +223,8 @@ opt_ProduceC                        = lookup_str "-C="
 opt_ProduceS                   = lookup_str "-S="
 opt_ProduceHi                  = lookup_str "-hifile="
 opt_ProduceHu                  = lookup_str "-hufile="
+opt_MyHi                       = lookup_str "-myhifile=" -- the ones produced last time
+opt_MyHu                       = lookup_str "-myhufile=" -- for this module
 opt_EnsureSplittableC          = lookup_str "-fglobalise-toplev-names="
 opt_UnfoldingUseThreshold      = lookup_int "-funfolding-use-threshold"
 opt_UnfoldingCreationThreshold = lookup_int "-funfolding-creation-threshold"
@@ -233,6 +234,7 @@ opt_ReturnInRegsThreshold   = lookup_int "-freturn-in-regs-threshold"
 opt_NoImplicitPrelude          = lookup  SLIT("-fno-implicit-prelude")
 opt_IgnoreIfacePragmas         = lookup  SLIT("-fignore-interface-pragmas")
 
+opt_HuSuffix    = case (lookup_str "-husuffix=")    of { Nothing -> ".hu" ; Just x -> x }
 opt_HiSuffix    = case (lookup_str "-hisuffix=")    of { Nothing -> ".hi" ; Just x -> x }
 opt_SysHiSuffix         = case (lookup_str "-syshisuffix=") of { Nothing -> ".hi" ; Just x -> x }