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
c4fb520e
Commit
c4fb520e
authored
Dec 07, 2011
by
Simon Marlow
Browse files
Take into account -fprof-auto-*
parent
021a0dd2
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/iface/FlagChecker.hs
View file @
c4fb520e
...
...
@@ -13,6 +13,7 @@ import HscTypes
import
Name
import
Fingerprint
-- import Outputable
import
StaticFlags
import
qualified
Data.IntSet
as
IntSet
import
System.FilePath
(
normalise
)
...
...
@@ -42,6 +43,9 @@ fingerprintDynFlags DynFlags{..} nameio =
[
objectSuf
,
hcSuf
,
hiSuf
],
[
objectDir
,
hiDir
,
stubDir
,
outputFile
,
outputHi
])
-- -fprof-auto etc.
prof
=
if
opt_SccProfilingOn
then
fromEnum
profAuto
else
0
in
-- pprTrace "flags" (ppr (mainis, safeHs, lang, cpp, paths)) $
computeFingerprint
nameio
(
mainis
,
safeHs
,
lang
,
cpp
,
paths
)
computeFingerprint
nameio
(
mainis
,
safeHs
,
lang
,
cpp
,
paths
,
prof
)
compiler/main/DynFlags.hs
View file @
c4fb520e
...
...
@@ -590,6 +590,7 @@ data ProfAuto
|
ProfAutoTop
-- ^ top-level functions annotated only
|
ProfAutoExports
-- ^ exported functions annotated only
|
ProfAutoCalls
-- ^ annotate call-sites
deriving
(
Enum
)
data
Settings
=
Settings
{
sTargetPlatform
::
Platform
,
-- Filled in by SysTools
...
...
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