From 4fc797aa4c775daf73c728ce9b3863a6a4ab53c2 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 11 Mar 2004 09:53:45 +0000
Subject: [PATCH] [project @ 2004-03-11 09:53:45 by simonmar] Add dependency
 on GHC.TopHandler if this is the main module.

---
 ghc/compiler/codeGen/CodeGen.lhs |    9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs
index 4ac0eaa..1c817ae 100644
--- a/ghc/compiler/codeGen/CodeGen.lhs
+++ b/ghc/compiler/codeGen/CodeGen.lhs
@@ -28,7 +28,7 @@ import DriverState	( v_Build_tag, v_MainModIs )
 import StgSyn
 import CgMonad
 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, 
 			  mkPlainModuleInitLabel, mkModuleInitLabel )
 import PprAbsC		( dumpRealC )
@@ -145,7 +145,12 @@ mkModuleInit way cost_centre_info this_mod mb_main_mod foreign_stubs imported_mo
 				   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,
 	-- we inject an extra stg_init procedure for stg_init_ZCMain, for the 
-- 
1.7.10.4