diff options
| author | andy@galois.com <unknown> | 2007-07-17 07:35:10 +0000 |
|---|---|---|
| committer | andy@galois.com <unknown> | 2007-07-17 07:35:10 +0000 |
| commit | c1681a73fa4ca4cf8758264ae387ac09a9e900d8 (patch) | |
| tree | 8f96c574da6d06aa437404c981ac8b638f3c22b4 /compiler/codeGen | |
| parent | 84ca819a2640cfb688acbf53a9e71e5329b4b8ee (diff) | |
| download | haskell-c1681a73fa4ca4cf8758264ae387ac09a9e900d8.tar.gz | |
Adding pushing of hpc translation status through hi files.
Now, if a single module *anywhere* on the module tree is built with
-fhpc, the binary will enable reading/writing of <bin>.tix.
Previously, you needed to compile Main to allow coverage to operate.
This changes the file format for .hi files; you will need to recompile every library.
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/CgHpc.hs | 2 | ||||
| -rw-r--r-- | compiler/codeGen/CodeGen.lhs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs index ed58daaac0..6da243b804 100644 --- a/compiler/codeGen/CgHpc.hs +++ b/compiler/codeGen/CgHpc.hs @@ -57,7 +57,7 @@ hpcTable this_mod (HpcInfo hpc_tickCount _) = do else packageIdString (modulePackageId this_mod) ++ "/" ++ module_name_str -hpcTable this_mod (NoHpcInfo) = error "TODO: impossible" +hpcTable this_mod (NoHpcInfo {}) = error "TODO: impossible" initHpc :: Module -> HpcInfo -> Code initHpc this_mod (HpcInfo tickCount hashNo) diff --git a/compiler/codeGen/CodeGen.lhs b/compiler/codeGen/CodeGen.lhs index 4c7f570ff4..863d29e2e2 100644 --- a/compiler/codeGen/CodeGen.lhs +++ b/compiler/codeGen/CodeGen.lhs @@ -224,7 +224,7 @@ mkModuleInit dflags way cost_centre_info this_mod main_mod foreign_stubs importe , CmmJump (CmmLoad (cmmRegOffW spReg (-1)) wordRep) [] ] - rec_descent_init = if opt_SccProfilingOn || opt_Hpc + rec_descent_init = if opt_SccProfilingOn || isHpcUsed hpc_info then jump_to_init else ret_code |