Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
ad3d65cd
Commit
ad3d65cd
authored
Jun 20, 2012
by
Ian Lynagh
Browse files
Make -fparallel a dynamic flag
parent
506d37b0
Changes
5
Hide whitespace changes
Inline
Side-by-side
compiler/codeGen/ClosureInfo.lhs
View file @
ad3d65cd
...
...
@@ -649,8 +649,8 @@ getCallMethod :: DynFlags
-> RepArity -- Number of available arguments
-> CallMethod
getCallMethod
_
_ _ lf_info _
| nodeMustPointToIt lf_info &&
o
pt_Parallel
getCallMethod
dflags
_ _ lf_info _
| nodeMustPointToIt lf_info &&
dopt O
pt_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.
...
...
compiler/codeGen/StgCmmClosure.hs
View file @
ad3d65cd
...
...
@@ -474,8 +474,8 @@ getCallMethod :: DynFlags
->
RepArity
-- Number of available arguments
->
CallMethod
getCallMethod
_
_name
_
lf_info
_n_args
|
nodeMustPointToIt
lf_info
&&
o
pt_Parallel
getCallMethod
dflags
_name
_
lf_info
_n_args
|
nodeMustPointToIt
lf_info
&&
dopt
O
pt_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.
...
...
compiler/main/DynFlags.hs
View file @
ad3d65cd
...
...
@@ -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
),
...
...
compiler/main/StaticFlagParser.hs
View file @
ad3d65cd
...
...
@@ -170,7 +170,6 @@ isStaticFlag f =
"fscc-profiling"
,
"fdicts-strict"
,
"fspec-inline-join-points"
,
"fparallel"
,
"fgransim"
,
"fno-hi-version-check"
,
"dno-black-holing"
,
...
...
compiler/main/StaticFlags.hs
View file @
ad3d65cd
...
...
@@ -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"
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment