projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix Trace #1494
[ghc-hetmet.git]
/
compiler
/
deSugar
/
Coverage.lhs
diff --git
a/compiler/deSugar/Coverage.lhs
b/compiler/deSugar/Coverage.lhs
index
501ee81
..
a9b1a52
100644
(file)
--- a/
compiler/deSugar/Coverage.lhs
+++ b/
compiler/deSugar/Coverage.lhs
@@
-38,10
+38,8
@@
import Compat.Directory ( createDirectoryIfMissing )
import System.Directory ( createDirectoryIfMissing )
#endif
import System.Directory ( createDirectoryIfMissing )
#endif
-#if GHCI
import Trace.Hpc.Mix
import Trace.Hpc.Util
import Trace.Hpc.Mix
import Trace.Hpc.Util
-#endif
import BreakArray
import Data.HashTable ( hashString )
import BreakArray
import Data.HashTable ( hashString )
@@
-63,7
+61,6
@@
addCoverageTicksToBinds
-> LHsBinds Id
-> IO (LHsBinds Id, HpcInfo, ModBreaks)
-> LHsBinds Id
-> IO (LHsBinds Id, HpcInfo, ModBreaks)
-#if GHCI
addCoverageTicksToBinds dflags mod mod_loc tyCons binds = do
let orig_file =
addCoverageTicksToBinds dflags mod mod_loc tyCons binds = do
let orig_file =
@@
-102,7
+99,8
@@
addCoverageTicksToBinds dflags mod mod_loc tyCons binds = do
when (length entries' /= tickBoxCount st) $ do
panic "the number of .mix entries are inconsistent"
let hashNo = mixHash orig_file modTime tabStop entries'
when (length entries' /= tickBoxCount st) $ do
panic "the number of .mix entries are inconsistent"
let hashNo = mixHash orig_file modTime tabStop entries'
- mixCreate hpc_dir mod_name (Mix orig_file modTime (toHash hashNo) tabStop entries')
+ mixCreate hpc_dir mod_name
+ $ Mix orig_file modTime (toHash hashNo) tabStop entries'
return $ hashNo
else do
return $ 0
return $ hashNo
else do
return $ 0
@@
-715,11
+713,3
@@
mixHash :: FilePath -> Integer -> Int -> [MixEntry] -> Int
mixHash file tm tabstop entries = fromIntegral $ hashString
(show $ Mix file tm 0 tabstop entries)
\end{code}
mixHash file tm tabstop entries = fromIntegral $ hashString
(show $ Mix file tm 0 tabstop entries)
\end{code}
-
-
-\begin{code}
-#else
-addCoverageTicksToBinds dflags mod mod_loc tyCons binds =
- return (binds, noHpcInfo, emptyModBreaks)
-#endif
-\end{code}
\ No newline at end of file