Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
72964542
Commit
72964542
authored
Oct 08, 2001
by
simonmar
Browse files
[project @ 2001-10-08 13:24:53 by simonmar]
Don't panic when an out-of-range optimisation level is requested.
parent
1f5a36d0
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/main/DriverFlags.hs
View file @
72964542
{-# OPTIONS -#include "hschooks.h" #-}
-----------------------------------------------------------------------------
-- $Id: DriverFlags.hs,v 1.7
3
2001/10/0
1
13:
57:13 rrt
Exp $
-- $Id: DriverFlags.hs,v 1.7
4
2001/10/0
8
13:
24:53 simonmar
Exp $
--
-- Driver flags
--
...
...
@@ -463,7 +463,8 @@ buildStaticHscOpts = do
0
->
hsc_minusNoO_flags
1
->
hsc_minusO_flags
2
->
hsc_minusO2_flags
_
->
error
"unknown opt level"
n
->
throwDyn
(
CmdLineError
(
"unknown optimisation level: "
++
show
n
))
-- ToDo: -Ofile
-- take into account -fno-* flags by removing the equivalent -f*
...
...
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