[project @ 2001-08-31 13:51:45 by sewardj]

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

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 181863f..33d9320 100644 (file)
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -83,6 +83,7 @@ module CmdLineOpts (
        opt_SimplDoLambdaEtaExpansion,
        opt_SimplCaseMerge,
        opt_SimplExcessPrecision,
+       opt_MaxWorkerArgs,
 
        -- Unfolding control
        opt_UF_CreationThreshold,
@@ -315,6 +316,10 @@ data DynFlags = DynFlags {
   opt_c                        :: [String],
   opt_a                        :: [String],
   opt_m                        :: [String],
+#ifdef ILX                        
+  opt_I                        :: [String],
+  opt_i                        :: [String],
+#endif
 
   -- hsc dynamic flags
   flags                :: [DynFlag]
@@ -326,6 +331,7 @@ data HscLang
   | HscJava
   | HscILX
   | HscInterpreted
+  | HscNothing
     deriving (Eq, Show)
 
 defaultDynFlags = DynFlags {
@@ -343,6 +349,10 @@ defaultDynFlags = DynFlags {
   opt_c                        = [],
   opt_a                        = [],
   opt_m                        = [],
+#ifdef ILX
+  opt_I                 = [],
+  opt_i                 = [],
+#endif
   flags = standardWarnings,
   }
 
@@ -551,6 +561,7 @@ opt_StgDoLetNoEscapes               = lookUp  SLIT("-flet-no-escape")
 opt_UnfoldCasms                        = lookUp  SLIT("-funfold-casms-in-hi-file")
 opt_UsageSPOn                  = lookUp  SLIT("-fusagesp-on")
 opt_UnboxStrictFields          = lookUp  SLIT("-funbox-strict-fields")
+opt_MaxWorkerArgs              = lookup_def_int "-fmax-worker-args" (10::Int)
 
 {-
    The optional '-inpackage=P' flag tells what package
@@ -652,6 +663,7 @@ isStaticHscFlag f =
   || any (flip prefixMatch f) [
        "fcontext-stack",
        "fliberate-case-threshold",
+       "fmax-worker-args",
        "fhistory-size",
        "funfolding-creation-threshold",
        "funfolding-use-threshold",