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/CodeGen.lhs | |
| 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/CodeGen.lhs')
| -rw-r--r-- | compiler/codeGen/CodeGen.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |