Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
GHC
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
0
Merge Requests
0
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Package Registry
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Alex D
GHC
Commits
75ebc06a
Commit
75ebc06a
authored
Jun 25, 2007
by
simonpj@microsoft.com
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Clamp -O flag to beween 0 and 2
Fixes Trac #1272
parent
11d36d9f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
3 deletions
+4
-3
compiler/main/DynFlags.hs
compiler/main/DynFlags.hs
+4
-3
No files found.
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
Markdown
is supported
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