From 0c33b675b26b627963c7a2ac00d6dd4c551fbcac Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 23 Jun 2003 11:46:06 +0000
Subject: [PATCH] [project @ 2003-06-23 11:46:06 by simonpj] Fix previous
 -main-is commit

---
 ghc/compiler/codeGen/CodeGen.lhs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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,
-- 
1.7.10.4