From: sof <unknown>
Date: Thu, 16 Sep 1999 17:11:38 +0000 (+0000)
Subject: [project @ 1999-09-16 17:11:38 by sof]
X-Git-Tag: Approximately_9120_patches~5794
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=53c4bc4b0a438afa22cbebc4596e8dbf1bc7ba52;p=ghc-hetmet.git

[project @ 1999-09-16 17:11:38 by sof]
mkVanillaModule: sigh, special treatment for module Main.
---

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index ead105a..38a3609 100644
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -194,8 +194,14 @@ mkModule = Module
 mkVanillaModule :: ModuleName -> Module
 mkVanillaModule name = Module name UserMod dell
  where
-  dell | opt_Static || opt_CompilingPrelude = NotDll
-       | otherwise		 	    = Dll
+  main_mod = mkSrcModuleFS SLIT("Main")
+
+   -- Main can never be in a DLL - need this
+   -- special case in order to correctly
+   -- compile PrelMain
+  dell | opt_Static || opt_CompilingPrelude || 
+         name == main_mod = NotDll
+       | otherwise	  = Dll
 
 
 mkThisModule :: ModuleName -> Module	-- The module being comiled