diff options
| -rw-r--r-- | ghc/compiler/codeGen/CodeGen.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs index fd5ef9d3a1..8606ff9116 100644 --- a/ghc/compiler/codeGen/CodeGen.lhs +++ b/ghc/compiler/codeGen/CodeGen.lhs @@ -158,9 +158,9 @@ mkModuleInit way cost_centre_info this_mod mb_main_mod foreign_stubs imported_mo | Module.moduleName this_mod /= main_mod_name = AbsCNop -- The normal case | otherwise -- this_mod contains the main function - = CModuleInitBlock (mkPlainModuleInitLabel dOLLAR_MAIN) - (mkModuleInitLabel dOLLAR_MAIN way) - (mk_import_register this_mod) + = CCodeBlock (mkPlainModuleInitLabel dOLLAR_MAIN) + (CJump (CLbl (mkPlainModuleInitLabel this_mod) CodePtrRep)) + in mkAbstractCs [ cc_decls, |