projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
878924a
)
Fixing -fhpc flag to allow -fno-hpc
author
andy@galois.com
<unknown>
Wed, 27 Jun 2007 05:38:08 +0000
(
05:38
+0000)
committer
andy@galois.com
<unknown>
Wed, 27 Jun 2007 05:38:08 +0000
(
05:38
+0000)
compiler/main/StaticFlags.hs
patch
|
blob
|
history
diff --git
a/compiler/main/StaticFlags.hs
b/compiler/main/StaticFlags.hs
index
457626c
..
9e13360
100644
(file)
--- a/
compiler/main/StaticFlags.hs
+++ b/
compiler/main/StaticFlags.hs
@@
-160,10
+160,6
@@
static_flags = [
, ( "dppr-user-length", AnySuffix addOpt )
-- rest of the debugging flags are dynamic
, ( "dppr-user-length", AnySuffix addOpt )
-- rest of the debugging flags are dynamic
- --------- Haskell Program Coverage -----------------------------------
-
- , ( "fhpc" , PassFlag addOpt )
-
--------- Profiling --------------------------------------------------
, ( "auto-all" , NoArg (addOpt "-fauto-sccs-on-all-toplevs") )
, ( "auto" , NoArg (addOpt "-fauto-sccs-on-exported-toplevs") )
--------- Profiling --------------------------------------------------
, ( "auto-all" , NoArg (addOpt "-fauto-sccs-on-all-toplevs") )
, ( "auto" , NoArg (addOpt "-fauto-sccs-on-exported-toplevs") )
@@
-370,7
+366,8
@@
isStaticFlag f =
"fext-core",
"fcpr-off",
"ferror-spans",
"fext-core",
"fcpr-off",
"ferror-spans",
- "fPIC"
+ "fPIC",
+ "fhpc"
]
|| any (flip prefixMatch f) [
"fliberate-case-threshold",
]
|| any (flip prefixMatch f) [
"fliberate-case-threshold",