Commit 4fc797aa authored by simonmar's avatar simonmar
Browse files

[project @ 2004-03-11 09:53:45 by simonmar]

Add dependency on GHC.TopHandler if this is the main module.
parent 1ee6cec9
...@@ -28,7 +28,7 @@ import DriverState ( v_Build_tag, v_MainModIs ) ...@@ -28,7 +28,7 @@ import DriverState ( v_Build_tag, v_MainModIs )
import StgSyn import StgSyn
import CgMonad import CgMonad
import AbsCSyn import AbsCSyn
import PrelNames ( gHC_PRIM, rOOT_MAIN, mAIN_Name ) import PrelNames ( gHC_PRIM, rOOT_MAIN, mAIN_Name, pREL_TOP_HANDLER )
import CLabel ( mkSRTLabel, mkClosureLabel, import CLabel ( mkSRTLabel, mkClosureLabel,
mkPlainModuleInitLabel, mkModuleInitLabel ) mkPlainModuleInitLabel, mkModuleInitLabel )
import PprAbsC ( dumpRealC ) import PprAbsC ( dumpRealC )
...@@ -145,7 +145,12 @@ mkModuleInit way cost_centre_info this_mod mb_main_mod foreign_stubs imported_mo ...@@ -145,7 +145,12 @@ mkModuleInit way cost_centre_info this_mod mb_main_mod foreign_stubs imported_mo
CLbl (mkModuleInitLabel mod way) AddrRep CLbl (mkModuleInitLabel mod way) AddrRep
] ]
register_mod_imports = map mk_import_register imported_mods extra_imported_mods
| Module.moduleName this_mod == main_mod_name = [ pREL_TOP_HANDLER ]
| otherwise = [ ]
register_mod_imports =
map mk_import_register (imported_mods ++ extra_imported_mods)
-- When compiling the module in which the 'main' function lives, -- When compiling the module in which the 'main' function lives,
-- we inject an extra stg_init procedure for stg_init_ZCMain, for the -- we inject an extra stg_init procedure for stg_init_ZCMain, for the
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment