- | SimplMayDeleteConjurableIds
- | SimplPedanticBottoms -- see Simplifier for an explanation
- | SimplDoArityExpand -- expand arity of bindings
- | SimplDoFoldrBuild -- This is the per-simplification flag;
- -- see also FoldrBuildOn, used elsewhere
- -- in the compiler.
- | SimplDoInlineFoldrBuild
- -- inline foldr/build (*after* f/b rule is used)
-
- | IgnoreINLINEPragma
- | SimplDoLambdaEtaExpansion
-
- | EssentialUnfoldingsOnly -- never mind the thresholds, only
- -- do unfoldings that *must* be done
- -- (to saturate constructors and primitives)
-
- | ShowSimplifierProgress -- report counts on every interation
-
- | MaxSimplifierIterations Int
-
- | SimplNoLetFromCase -- used when turning off floating entirely
- | SimplNoLetFromApp -- (for experimentation only) WDP 95/10
- | SimplNoLetFromStrictLet
-
- | SimplDontFoldBackAppend
- -- we fold `foldr (:)' back into flip (++),
- -- but we *don't* want to do it when compiling
- -- List.hs, otherwise
- -- xs ++ ys = foldr (:) ys xs
- -- {- via our loopback -}
- -- xs ++ ys = xs ++ ys
- -- Oops!
- -- So only use this flag inside List.hs
- -- (Sigh, what a HACK, Andy. WDP 96/01)
-
- | SimplCaseMerge
- | SimplCaseScrutinee -- This flag tells that the expression being simplified is
- -- the scrutinee of a case expression, so we should
- -- apply the scrutinee discount when considering inlinings.
- -- See SimplVar.lhs
-
- | SimplCloneBinds -- This flag controls whether the simplifier should
- -- always clone binder ids when creating expression
- -- copies. The default is NO, but it needs to be turned on
- -- prior to floating binders outwards.
- -- (see comment inside SimplVar.simplBinder)
+\end{code}
+
+%************************************************************************
+%* *
+\subsection{Dynamic command-line options}
+%* *
+%************************************************************************
+
+\begin{code}
+data DynFlag
+
+ -- debugging flags
+ = Opt_D_dump_absC
+ | Opt_D_dump_asm
+ | Opt_D_dump_cpranal
+ | Opt_D_dump_deriv
+ | Opt_D_dump_ds
+ | Opt_D_dump_flatC
+ | Opt_D_dump_foreign
+ | Opt_D_dump_inlinings
+ | Opt_D_dump_occur_anal
+ | Opt_D_dump_parsed
+ | Opt_D_dump_realC
+ | Opt_D_dump_rn
+ | Opt_D_dump_simpl
+ | Opt_D_dump_simpl_iterations
+ | Opt_D_dump_spec
+ | Opt_D_dump_sat
+ | Opt_D_dump_stg
+ | Opt_D_dump_stranal
+ | Opt_D_dump_tc
+ | Opt_D_dump_types
+ | Opt_D_dump_rules
+ | Opt_D_dump_usagesp
+ | Opt_D_dump_cse
+ | Opt_D_dump_worker_wrapper
+ | Opt_D_dump_rn_trace
+ | Opt_D_dump_rn_stats
+ | Opt_D_dump_stix
+ | Opt_D_dump_simpl_stats
+ | Opt_D_dump_tc_trace
+ | Opt_D_dump_BCOs
+ | Opt_D_source_stats
+ | Opt_D_verbose_core2core
+ | Opt_D_verbose_stg2stg
+ | Opt_D_dump_hi
+ | Opt_D_dump_hi_diffs
+ | Opt_D_dump_minimal_imports
+ | Opt_DoCoreLinting
+ | Opt_DoStgLinting
+ | Opt_DoUSPLinting
+
+ | Opt_WarnDuplicateExports
+ | Opt_WarnHiShadows
+ | Opt_WarnIncompletePatterns
+ | Opt_WarnMissingFields
+ | Opt_WarnMissingMethods
+ | Opt_WarnMissingSigs
+ | Opt_WarnNameShadowing
+ | Opt_WarnOverlappingPatterns
+ | Opt_WarnSimplePatterns
+ | Opt_WarnTypeDefaults
+ | Opt_WarnUnusedBinds
+ | Opt_WarnUnusedImports
+ | Opt_WarnUnusedMatches
+ | Opt_WarnDeprecations
+
+ -- language opts
+ | Opt_AllowOverlappingInstances
+ | Opt_AllowUndecidableInstances
+ | Opt_GlasgowExts
+ | Opt_Generics
+ | Opt_NoImplicitPrelude
+
+ deriving (Eq)
+
+data DynFlags = DynFlags {
+ coreToDo :: [CoreToDo],
+ stgToDo :: [StgToDo],
+ hscLang :: HscLang,
+ hscOutName :: String, -- name of the output file
+ verbosity :: Int, -- verbosity level
+ cppFlag :: Bool, -- preprocess with cpp?
+ stolen_x86_regs :: Int,
+ cmdlineHcIncludes :: [String], -- -#includes
+
+ -- options for particular phases
+ opt_L :: [String],
+ opt_P :: [String],
+ opt_c :: [String],
+ opt_a :: [String],
+ opt_m :: [String],
+
+ -- hsc dynamic flags
+ flags :: [DynFlag]
+ }
+
+defaultDynFlags = DynFlags {
+ coreToDo = [], stgToDo = [],
+ hscLang = HscC,
+ hscOutName = "",
+ verbosity = 0,
+ cppFlag = False,
+ stolen_x86_regs = 4,
+ cmdlineHcIncludes = [],
+ opt_L = [],
+ opt_P = [],
+ opt_c = [],
+ opt_a = [],
+ opt_m = [],
+ flags = standardWarnings,
+ }
+
+{-
+ Verbosity levels:
+
+ 0 | print errors & warnings only
+ 1 | minimal verbosity: print "compiling M ... done." for each module.
+ 2 | equivalent to -dshow-passes
+ 3 | equivalent to existing "ghc -v"
+ 4 | "ghc -v -ddump-most"
+ 5 | "ghc -v -ddump-all"
+-}
+
+dopt :: DynFlag -> DynFlags -> Bool
+dopt f dflags = f `elem` (flags dflags)
+
+dopt_CoreToDo :: DynFlags -> [CoreToDo]
+dopt_CoreToDo = coreToDo
+
+dopt_StgToDo :: DynFlags -> [StgToDo]
+dopt_StgToDo = stgToDo
+
+dopt_OutName :: DynFlags -> String
+dopt_OutName = hscOutName
+
+data HscLang
+ = HscC
+ | HscAsm
+ | HscJava
+#ifdef ILX
+ | HscILX
+#endif
+ | HscInterpreted
+ deriving (Eq, Show)
+
+dopt_HscLang :: DynFlags -> HscLang
+dopt_HscLang = hscLang
+\end{code}
+
+%************************************************************************
+%* *
+\subsection{Warnings}
+%* *
+%************************************************************************
+
+\begin{code}
+standardWarnings
+ = [ Opt_WarnDeprecations,
+ Opt_WarnOverlappingPatterns,
+ Opt_WarnMissingFields,
+ Opt_WarnMissingMethods,
+ Opt_WarnDuplicateExports
+ ]
+
+minusWOpts
+ = standardWarnings ++
+ [ Opt_WarnUnusedBinds,
+ Opt_WarnUnusedMatches,
+ Opt_WarnUnusedImports,
+ Opt_WarnIncompletePatterns
+ ]
+
+minusWallOpts
+ = minusWOpts ++
+ [ Opt_WarnTypeDefaults,
+ Opt_WarnNameShadowing,
+ Opt_WarnMissingSigs,
+ Opt_WarnHiShadows
+ ]