Take into account -fprof-auto-*
authorSimon Marlow <marlowsd@gmail.com>
Wed, 7 Dec 2011 15:11:37 +0000 (15:11 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 7 Dec 2011 15:24:28 +0000 (15:24 +0000)
compiler/iface/FlagChecker.hs
compiler/main/DynFlags.hs

index 0ea1f3b..611228e 100644 (file)
@@ -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)
 
index 947b320..3cab442 100644 (file)
@@ -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