-- Manipulating DynFlags
defaultDynFlags, -- DynFlags
- defaultHscLang, -- HscLang
dopt, -- DynFlag -> DynFlags -> Bool
dopt_set, dopt_unset, -- DynFlags -> DynFlag -> DynFlags
dopt_CoreToDo, -- DynFlags -> [CoreToDo]
restoreDynFlags, -- IO DynFlags
-- sets of warning opts
- standardWarnings,
minusWOpts,
minusWallOpts,
-- Output style options
- opt_PprStyle_NoPrags,
- opt_PprStyle_RawTypes,
opt_PprUserLength,
opt_PprStyle_Debug,
opt_AutoSccsOnAllToplevs,
opt_AutoSccsOnExportedToplevs,
opt_AutoSccsOnIndividualCafs,
- opt_AutoSccsOnDicts,
opt_SccProfilingOn,
opt_DoTickyProfiling,
-- language opts
- opt_AllStrict,
opt_DictsStrict,
opt_MaxContextReductionDepth,
opt_IrrefutableTuples,
- opt_NumbersStrict,
opt_Parallel,
opt_SMP,
opt_RuntimeTypes,
-- optimisation opts
opt_NoMethodSharing,
- opt_DoSemiTagging,
opt_LiberateCaseThreshold,
opt_CprOff,
opt_RulesOff,
opt_UF_FunAppDiscount,
opt_UF_KeenessFactor,
opt_UF_UpdateInPlace,
- opt_UF_CheapOp,
opt_UF_DearOp,
-- misc opts
+ opt_ErrorSpans,
opt_InPackage,
opt_EmitCExternDecls,
opt_EnsureSplittableC,
opt_GranMacros,
opt_HiVersion,
opt_HistorySize,
- opt_NoHiCheck,
opt_OmitBlackHoling,
- opt_NoPruneDecls,
opt_Static,
opt_Unregisterised,
opt_EmitExternalCore
| Opt_D_dump_stix
| Opt_D_dump_simpl_stats
| Opt_D_dump_tc_trace
+ | Opt_D_dump_if_trace
| Opt_D_dump_splices
| Opt_D_dump_BCOs
| Opt_D_dump_vect
-- applies to -O.
Opt_CSE,
-- similarly for CSE.
- Opt_DoLambdaEtaExpansion
+ Opt_DoLambdaEtaExpansion,
-- This one is important for a tiresome reason:
-- we want to make sure that the bindings for data
-- constructors are eta-expanded. This is probably
-- a good thing anyway, but it seems fragile.
- ] ++ standardWarnings,
+
+ -- and the default no-optimisation options:
+ Opt_IgnoreInterfacePragmas,
+ Opt_OmitInterfacePragmas
+
+ ] ++ standardWarnings
}
{-
\begin{code}
-- debugging opts
-opt_PprStyle_NoPrags = lookUp FSLIT("-dppr-noprags")
opt_PprStyle_Debug = lookUp FSLIT("-dppr-debug")
-opt_PprStyle_RawTypes = lookUp FSLIT("-dppr-rawtypes")
opt_PprUserLength = lookup_def_int "-dppr-user-length" 5 --ToDo: give this a name
-- profiling opts
opt_AutoSccsOnAllToplevs = lookUp FSLIT("-fauto-sccs-on-all-toplevs")
opt_AutoSccsOnExportedToplevs = lookUp FSLIT("-fauto-sccs-on-exported-toplevs")
opt_AutoSccsOnIndividualCafs = lookUp FSLIT("-fauto-sccs-on-individual-cafs")
-opt_AutoSccsOnDicts = lookUp FSLIT("-fauto-sccs-on-dicts")
opt_SccProfilingOn = lookUp FSLIT("-fscc-profiling")
opt_DoTickyProfiling = lookUp FSLIT("-fticky-ticky")
opt_DictsStrict = lookUp FSLIT("-fdicts-strict")
opt_IrrefutableTuples = lookUp FSLIT("-firrefutable-tuples")
opt_MaxContextReductionDepth = lookup_def_int "-fcontext-stack" mAX_CONTEXT_REDUCTION_DEPTH
-opt_NumbersStrict = lookUp FSLIT("-fnumbers-strict")
opt_Parallel = lookUp FSLIT("-fparallel")
opt_SMP = lookUp FSLIT("-fsmp")
opt_Flatten = lookUp FSLIT("-fflatten")
-- optimisation opts
opt_NoMethodSharing = lookUp FSLIT("-fno-method-sharing")
-opt_DoSemiTagging = lookUp FSLIT("-fsemi-tagging")
opt_CprOff = lookUp FSLIT("-fcpr-off")
opt_RulesOff = lookUp FSLIT("-frules-off")
-- Switch off CPR analysis in the new demand analyser
opt_GranMacros = lookUp FSLIT("-fgransim")
opt_HiVersion = read (cProjectVersionInt ++ cProjectPatchLevel) :: Int
opt_HistorySize = lookup_def_int "-fhistory-size" 20
-opt_NoHiCheck = lookUp FSLIT("-fno-hi-version-check")
opt_OmitBlackHoling = lookUp FSLIT("-dno-black-holing")
opt_RuntimeTypes = lookUp FSLIT("-fruntime-types")
opt_UF_KeenessFactor = lookup_def_float "-funfolding-keeness-factor" (1.5::Float)
opt_UF_UpdateInPlace = lookUp FSLIT("-funfolding-update-in-place")
-opt_UF_CheapOp = ( 1 :: Int) -- Only one instruction; and the args are charged for
opt_UF_DearOp = ( 4 :: Int)
-opt_NoPruneDecls = lookUp FSLIT("-fno-prune-decls")
opt_Static = lookUp FSLIT("-static")
opt_Unregisterised = lookUp FSLIT("-funregisterised")
opt_EmitExternalCore = lookUp FSLIT("-fext-core")
+
+-- Include full span info in error messages, instead of just the start position.
+opt_ErrorSpans = lookUp FSLIT("-ferror-spans")
\end{code}
%************************************************************************
"fall-strict",
"fdicts-strict",
"firrefutable-tuples",
- "fnumbers-strict",
"fparallel",
"fsmp",
"fflatten",
"fext-core",
"frule-check",
"frules-off",
- "fcpr-off"
+ "fcpr-off",
+ "ferror-spans"
]
|| any (flip prefixMatch f) [
"fcontext-stack",