Commit ad3d65cd authored by Ian Lynagh's avatar Ian Lynagh

Make -fparallel a dynamic flag

parent 506d37b0
......@@ -649,8 +649,8 @@ getCallMethod :: DynFlags
-> RepArity -- Number of available arguments
-> CallMethod
getCallMethod _ _ _ lf_info _
| nodeMustPointToIt lf_info && opt_Parallel
getCallMethod dflags _ _ lf_info _
| nodeMustPointToIt lf_info && dopt Opt_Parallel dflags
= -- If we're parallel, then we must always enter via node.
-- The reason is that the closure may have been
-- fetched since we allocated it.
......
......@@ -474,8 +474,8 @@ getCallMethod :: DynFlags
-> RepArity -- Number of available arguments
-> CallMethod
getCallMethod _ _name _ lf_info _n_args
| nodeMustPointToIt lf_info && opt_Parallel
getCallMethod dflags _name _ lf_info _n_args
| nodeMustPointToIt lf_info && dopt Opt_Parallel dflags
= -- If we're parallel, then we must always enter via node.
-- The reason is that the closure may have been
-- fetched since we allocated it.
......
......@@ -309,6 +309,7 @@ data DynFlag
| Opt_GhciHistory
| Opt_HelpfulErrors
| Opt_DeferTypeErrors
| Opt_Parallel
-- output style opts
| Opt_PprCaseAsLet
......@@ -1985,6 +1986,7 @@ fFlags = [
( "ghci-history", Opt_GhciHistory, nop ),
( "helpful-errors", Opt_HelpfulErrors, nop ),
( "defer-type-errors", Opt_DeferTypeErrors, nop ),
( "parallel", Opt_Parallel, nop ),
( "building-cabal-package", Opt_BuildingCabalPackage, nop ),
( "implicit-import-qualified", Opt_ImplicitImportQualified, nop ),
( "prof-count-entries", Opt_ProfCountEntries, nop ),
......
......@@ -170,7 +170,6 @@ isStaticFlag f =
"fscc-profiling",
"fdicts-strict",
"fspec-inline-join-points",
"fparallel",
"fgransim",
"fno-hi-version-check",
"dno-black-holing",
......
......@@ -48,7 +48,6 @@ module StaticFlags (
-- language opts
opt_DictsStrict,
opt_Parallel,
-- optimisation opts
opt_NoStateHack,
......@@ -264,9 +263,6 @@ opt_Hpc = lookUp (fsLit "-fhpc")
opt_DictsStrict :: Bool
opt_DictsStrict = lookUp (fsLit "-fdicts-strict")
opt_Parallel :: Bool
opt_Parallel = lookUp (fsLit "-fparallel")
opt_SimpleListLiterals :: Bool
opt_SimpleListLiterals = lookUp (fsLit "-fsimple-list-literals")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment