Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
75ebc06a
Commit
75ebc06a
authored
Jun 25, 2007
by
simonpj@microsoft.com
Browse files
Clamp -O flag to beween 0 and 2
Fixes Trac #1272
parent
11d36d9f
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main/DynFlags.hs
View file @
75ebc06a
...
...
@@ -561,13 +561,14 @@ data Option
updOptLevel
::
Int
->
DynFlags
->
DynFlags
-- Set dynflags appropriate to the optimisation level
updOptLevel
n
dfs
=
dfs2
{
optLevel
=
n
}
=
dfs2
{
optLevel
=
final_
n
}
where
final_n
=
max
0
(
min
2
n
)
-- Clamp to 0 <= n <= 2
dfs1
=
foldr
(
flip
dopt_unset
)
dfs
remove_dopts
dfs2
=
foldr
(
flip
dopt_set
)
dfs1
extra_dopts
extra_dopts
=
[
f
|
(
ns
,
f
)
<-
optLevelFlags
,
n
`
elem
`
ns
]
remove_dopts
=
[
f
|
(
ns
,
f
)
<-
optLevelFlags
,
n
`
notElem
`
ns
]
extra_dopts
=
[
f
|
(
ns
,
f
)
<-
optLevelFlags
,
final_
n
`
elem
`
ns
]
remove_dopts
=
[
f
|
(
ns
,
f
)
<-
optLevelFlags
,
final_
n
`
notElem
`
ns
]
optLevelFlags
::
[([
Int
],
DynFlag
)]
optLevelFlags
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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