X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCodeGen.lhs;h=8606ff91163f78a4cb1788a955220df998fe708e;hb=0c33b675b26b627963c7a2ac00d6dd4c551fbcac;hp=fd5ef9d3a1712d0f3383e2b9d94e556b1455f12c;hpb=d28ba8c800901bea01f70c4719278c2a364cf9fc;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs
index fd5ef9d..8606ff9 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,