-- optimisation opts
opt_NoMethodSharing,
opt_DoSemiTagging,
- opt_FoldrBuildOn,
opt_LiberateCaseThreshold,
opt_StgDoLetNoEscapes,
opt_UnfoldCasms,
opt_CprOff,
- opt_UsageSPOn,
+ opt_RulesOff,
opt_UnboxStrictFields,
opt_SimplNoPreInlining,
opt_SimplDoEtaReduction,
opt_NoHiCheck,
opt_OmitBlackHoling,
opt_OmitInterfacePragmas,
- opt_NoPruneTyDecls,
opt_NoPruneDecls,
opt_Static,
opt_Unregisterised,
| CoreDoWorkerWrapper
| CoreDoSpecialising
| CoreDoSpecConstr
- | CoreDoUSPInf
| CoreDoOldStrictness
| CoreDoGlomBinds
| CoreCSE
| 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_minimal_imports
| Opt_DoCoreLinting
| Opt_DoStgLinting
- | Opt_DoUSPLinting
+ | Opt_WarnIsError -- -Werror; makes warnings fatal
| Opt_WarnDuplicateExports
| Opt_WarnHiShadows
| Opt_WarnIncompletePatterns
| Opt_FFI
| Opt_PArr -- syntactic support for parallel arrays
| Opt_With -- deprecated keyword for implicit parms
+ | Opt_Arrows -- Arrow-notation syntax
| Opt_Generics
| Opt_NoImplicitPrelude
defaultHscLang
| cGhcWithNativeCodeGen == "YES" &&
(prefixMatch "i386" cTARGETPLATFORM ||
- prefixMatch "sparc" cTARGETPLATFORM) = HscAsm
+ prefixMatch "sparc" cTARGETPLATFORM ||
+ prefixMatch "powerpc" cTARGETPLATFORM) = HscAsm
| otherwise = HscC
defaultDynFlags = DynFlags {
-- optimisation opts
opt_NoMethodSharing = lookUp FSLIT("-fno-method-sharing")
opt_DoSemiTagging = lookUp FSLIT("-fsemi-tagging")
-opt_FoldrBuildOn = lookUp FSLIT("-ffoldr-build-on")
opt_CprOff = lookUp FSLIT("-fcpr-off")
+opt_RulesOff = lookUp FSLIT("-frules-off")
-- Switch off CPR analysis in the new demand analyser
opt_LiberateCaseThreshold = lookup_def_int "-fliberate-case-threshold" (10::Int)
opt_StgDoLetNoEscapes = lookUp FSLIT("-flet-no-escape")
opt_UnfoldCasms = lookUp FSLIT("-funfold-casms-in-hi-file")
-opt_UsageSPOn = lookUp FSLIT("-fusagesp-on")
opt_UnboxStrictFields = lookUp FSLIT("-funbox-strict-fields")
opt_MaxWorkerArgs = lookup_def_int "-fmax-worker-args" (10::Int)
opt_UF_DearOp = ( 4 :: Int)
opt_NoPruneDecls = lookUp FSLIT("-fno-prune-decls")
-opt_NoPruneTyDecls = lookUp FSLIT("-fno-prune-tydecls")
opt_Static = lookUp FSLIT("-static")
opt_Unregisterised = lookUp FSLIT("-funregisterised")
opt_EmitExternalCore = lookUp FSLIT("-fext-core")
"fsmp",
"fflatten",
"fsemi-tagging",
- "ffoldr-build-on",
"flet-no-escape",
"funfold-casms-in-hi-file",
- "fusagesp-on",
"funbox-strict-fields",
"femit-extern-decls",
"fglobalise-toplev-names",
"fexcess-precision",
"funfolding-update-in-place",
"fno-prune-decls",
- "fno-prune-tydecls",
"static",
"funregisterised",
"fext-core",
"frule-check",
+ "frules-off",
"fcpr-off"
]
|| any (flip prefixMatch f) [