From: simonpj <unknown>
Date: Mon, 23 Jun 2003 11:46:06 +0000 (+0000)
Subject: [project @ 2003-06-23 11:46:06 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~755
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0c33b675b26b627963c7a2ac00d6dd4c551fbcac;p=ghc-hetmet.git

[project @ 2003-06-23 11:46:06 by simonpj]
Fix previous -main-is commit
---

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,