-- optimisation opts
opt_NoMethodSharing,
opt_DoSemiTagging,
- opt_FoldrBuildOn,
opt_LiberateCaseThreshold,
opt_StgDoLetNoEscapes,
opt_UnfoldCasms,
opt_CprOff,
+ opt_RulesOff,
opt_UnboxStrictFields,
opt_SimplNoPreInlining,
opt_SimplDoEtaReduction,
opt_NoHiCheck,
opt_OmitBlackHoling,
opt_OmitInterfacePragmas,
- opt_NoPruneTyDecls,
opt_NoPruneDecls,
opt_Static,
opt_Unregisterised,
| 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_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",
"funbox-strict-fields",
"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) [