[project @ 2001-06-01 17:14:07 by apt]

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

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 281571e..406e1d0 100644 (file)
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -59,7 +59,7 @@ module CmdLineOpts (
        opt_Parallel,
        opt_SMP,
        opt_NoMonomorphismRestriction,
-       opt_KeepStgTypes,
+       opt_RuntimeTypes,
 
        -- optimisation opts
        opt_NoMethodSharing,
@@ -100,7 +100,8 @@ module CmdLineOpts (
        opt_NoPruneTyDecls,
        opt_NoPruneDecls,
        opt_Static,
-       opt_Unregisterised
+       opt_Unregisterised,
+       opt_EmitExternalCore
     ) where
 
 #include "HsVersions.h"
@@ -294,6 +295,7 @@ data DynFlags = DynFlags {
   hscOutName           :: String,      -- name of the output file
   hscStubHOutName      :: String,      -- name of the .stub_h output file
   hscStubCOutName      :: String,      -- name of the .stub_c output file
+  extCoreName          :: String,      -- name of the .core output file
   verbosity            :: Int,         -- verbosity level
   cppFlag              :: Bool,        -- preprocess with cpp?
   stolen_x86_regs      :: Int,         
@@ -315,6 +317,7 @@ defaultDynFlags = DynFlags {
   hscLang = HscC, 
   hscOutName = "", 
   hscStubHOutName = "", hscStubCOutName = "",
+  extCoreName = "",
   verbosity = 0, 
   cppFlag              = False,
   stolen_x86_regs      = 4,
@@ -360,9 +363,7 @@ data HscLang
   = HscC
   | HscAsm
   | HscJava
-#ifdef ILX
   | HscILX
-#endif
   | HscInterpreted
     deriving (Eq, Show)
 
@@ -382,7 +383,7 @@ standardWarnings
        Opt_WarnOverlappingPatterns,
        Opt_WarnMissingFields,
        Opt_WarnMissingMethods,
-       Opt_WarnDuplicateExports,
+       Opt_WarnDuplicateExports
       ]
 
 minusWOpts
@@ -517,7 +518,7 @@ opt_IgnoreIfacePragmas              = lookUp  SLIT("-fignore-interface-pragmas")
 opt_NoHiCheck                   = lookUp  SLIT("-fno-hi-version-check")
 opt_OmitBlackHoling            = lookUp  SLIT("-dno-black-holing")
 opt_OmitInterfacePragmas       = lookUp  SLIT("-fomit-interface-pragmas")
-opt_KeepStgTypes               = lookUp  SLIT("-fkeep-stg-types")
+opt_RuntimeTypes               = lookUp  SLIT("-fruntime-types")
 
 -- Simplifier switches
 opt_SimplNoPreInlining         = lookUp  SLIT("-fno-pre-inlining")
@@ -542,6 +543,7 @@ opt_NoPruneDecls            = lookUp  SLIT("-fno-prune-decls")
 opt_NoPruneTyDecls             = lookUp  SLIT("-fno-prune-tydecls")
 opt_Static                     = lookUp  SLIT("-static")
 opt_Unregisterised             = lookUp  SLIT("-funregisterised")
+opt_EmitExternalCore           = lookUp  SLIT("-fext-core")
 \end{code}
 
 %************************************************************************
@@ -581,7 +583,7 @@ isStaticHscFlag f =
        "fno-method-sharing",
         "fno-monomorphism-restriction",
        "fomit-interface-pragmas",
-       "fkeep-stg-types",
+       "fruntime-types",
        "fno-pre-inlining",
        "fdo-eta-reduction",
        "fdo-lambda-eta-expansion",
@@ -591,7 +593,8 @@ isStaticHscFlag f =
        "fno-prune-decls",
        "fno-prune-tydecls",
        "static",
-       "funregisterised"
+       "funregisterised",
+       "fext-core"
        ]
   || any (flip prefixMatch f) [
        "fcontext-stack",