X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FCodeGen.lhs;h=863d29e2e2b3dc9a8b471a59c81826af063dbd15;hp=4c7f570ff4cac7d6d08bed325599c12edf133484;hb=c1681a73fa4ca4cf8758264ae387ac09a9e900d8;hpb=affbe8dae5d7eb350686b42ddbd4f3561b7bd0ec

diff --git a/compiler/codeGen/CodeGen.lhs b/compiler/codeGen/CodeGen.lhs
index 4c7f570..863d29e 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