Commit c4fb520e authored by Simon Marlow's avatar Simon Marlow

Take into account -fprof-auto-*

parent 021a0dd2
......@@ -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)
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment