diff options
| author | simonpj <unknown> | 2003-06-23 11:46:06 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2003-06-23 11:46:06 +0000 |
| commit | 0c33b675b26b627963c7a2ac00d6dd4c551fbcac (patch) | |
| tree | aad0c44f0e4e496ba25dee31a4917b32ce26ecb0 /ghc/compiler/codeGen/CodeGen.lhs | |
| parent | d28ba8c800901bea01f70c4719278c2a364cf9fc (diff) | |
| download | haskell-0c33b675b26b627963c7a2ac00d6dd4c551fbcac.tar.gz | |
[project @ 2003-06-23 11:46:06 by simonpj]
Fix previous -main-is commit
Diffstat (limited to 'ghc/compiler/codeGen/CodeGen.lhs')
| -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, |