Commit c4fb520e authored by Simon Marlow's avatar Simon Marlow
Browse files

Take into account -fprof-auto-*

parent 021a0dd2
...@@ -13,6 +13,7 @@ import HscTypes ...@@ -13,6 +13,7 @@ import HscTypes
import Name import Name
import Fingerprint import Fingerprint
-- import Outputable -- import Outputable
import StaticFlags
import qualified Data.IntSet as IntSet import qualified Data.IntSet as IntSet
import System.FilePath (normalise) import System.FilePath (normalise)
...@@ -42,6 +43,9 @@ fingerprintDynFlags DynFlags{..} nameio = ...@@ -42,6 +43,9 @@ fingerprintDynFlags DynFlags{..} nameio =
[ objectSuf, hcSuf, hiSuf ], [ objectSuf, hcSuf, hiSuf ],
[ objectDir, hiDir, stubDir, outputFile, outputHi ]) [ 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)) $ 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 ...@@ -590,6 +590,7 @@ data ProfAuto
| ProfAutoTop -- ^ top-level functions annotated only | ProfAutoTop -- ^ top-level functions annotated only
| ProfAutoExports -- ^ exported functions annotated only | ProfAutoExports -- ^ exported functions annotated only
| ProfAutoCalls -- ^ annotate call-sites | ProfAutoCalls -- ^ annotate call-sites
deriving (Enum)
data Settings = Settings { data Settings = Settings {
sTargetPlatform :: Platform, -- Filled in by SysTools sTargetPlatform :: Platform, -- Filled in by SysTools
......
Supports Markdown
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