Skip to content
GitLab
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
671e6004
Commit
671e6004
authored
Oct 31, 2000
by
simonmar
Browse files
[project @ 2000-10-31 11:16:12 by simonmar]
remove extra leading dash from isStaticFlag predicate
parent
d1c6e4f7
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/main/CmdLineOpts.lhs
View file @
671e6004
...
...
@@ -464,58 +464,58 @@ opt_Verbose = lookUp SLIT("-v")
\begin{code}
isStaticHscFlag f =
f `elem` [
"
-
fauto-sccs-on-all-toplevs",
"
-
fauto-sccs-on-exported-toplevs",
"
-
fauto-sccs-on-individual-cafs",
"
-
fauto-sccs-on-dicts",
"
-
fscc-profiling",
"
-
fticky-ticky",
"
-
fall-strict",
"
-
fdicts-strict",
"
-
fgenerics",
"
-
firrefutable-tuples",
"
-
fnumbers-strict",
"
-
fparallel",
"
-
fsmp",
"
-
fsemi-tagging",
"
-
ffoldr-build-on",
"
-
flet-no-escape",
"
-
funfold-casms-in-hi-file",
"
-
fusagesp-on",
"
-
funbox-strict-fields",
"
-
femit-extern-decls",
"
-
fglobalise-toplev-names",
"
-
fgransim",
"
-
fignore-asserts",
"
-
fignore-interface-pragmas",
"
-
fno-hi-version-check",
"
-
fno-implicit-prelude",
"
-
dno-black-holing",
"
-
fomit-interface-pragmas",
"
-
fno-pre-inlining",
"
-
fdo-eta-reduction",
"
-
fdo-lambda-eta-expansion",
"
-
fcase-of-case",
"
-
fcase-merge",
"
-
fpedantic-bottoms",
"
-
fexcess-precision",
"
-
funfolding-update-in-place",
"
-
freport-compile",
"
-
fno-prune-decls",
"
-
fno-prune-tydecls",
"
-
static",
"
-
funregisterised",
"
-
v" ]
"fauto-sccs-on-all-toplevs",
"fauto-sccs-on-exported-toplevs",
"fauto-sccs-on-individual-cafs",
"fauto-sccs-on-dicts",
"fscc-profiling",
"fticky-ticky",
"fall-strict",
"fdicts-strict",
"fgenerics",
"firrefutable-tuples",
"fnumbers-strict",
"fparallel",
"fsmp",
"fsemi-tagging",
"ffoldr-build-on",
"flet-no-escape",
"funfold-casms-in-hi-file",
"fusagesp-on",
"funbox-strict-fields",
"femit-extern-decls",
"fglobalise-toplev-names",
"fgransim",
"fignore-asserts",
"fignore-interface-pragmas",
"fno-hi-version-check",
"fno-implicit-prelude",
"dno-black-holing",
"fomit-interface-pragmas",
"fno-pre-inlining",
"fdo-eta-reduction",
"fdo-lambda-eta-expansion",
"fcase-of-case",
"fcase-merge",
"fpedantic-bottoms",
"fexcess-precision",
"funfolding-update-in-place",
"freport-compile",
"fno-prune-decls",
"fno-prune-tydecls",
"static",
"funregisterised",
"v" ]
|| any (flip prefixMatch f) [
"
-
fcontext-stack",
"
-
fliberate-case-threshold",
"
-
fhi-version=",
"
-
fhistory-size",
"
-
funfolding-interface-threshold",
"
-
funfolding-creation-threshold",
"
-
funfolding-use-threshold",
"
-
funfolding-fun-discount",
"
-
funfolding-keeness-factor"
"fcontext-stack",
"fliberate-case-threshold",
"fhi-version=",
"fhistory-size",
"funfolding-interface-threshold",
"funfolding-creation-threshold",
"funfolding-use-threshold",
"funfolding-fun-discount",
"funfolding-keeness-factor"
]
\end{code}
...
...
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