From: sof <unknown>
Date: Wed, 15 Sep 1999 13:46:38 +0000 (+0000)
Subject: [project @ 1999-09-15 13:46:38 by sof]
X-Git-Tag: Approximately_9120_patches~5810
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=51c592c2a899c715678c14f1e9d8d541f705257d;p=ghc-hetmet.git

[project @ 1999-09-15 13:46:38 by sof]
mkVanillaModule: made DLL savvy
---

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 1d6100a..ead105a 100644
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -21,7 +21,7 @@ module Module
     , mkVanillaModule	    -- :: ModuleName -> Module
     , mkThisModule	    -- :: ModuleName -> Module
     , mkPrelModule          -- :: UserString -> Module
-
+    
     , isDynamicModule       -- :: Module -> Bool
     , isLibModule
 
@@ -192,10 +192,16 @@ pprModule (Module mod _ _) = pprEncodedFS mod
 mkModule = Module
 
 mkVanillaModule :: ModuleName -> Module
-mkVanillaModule name = Module name UserMod NotDll
+mkVanillaModule name = Module name UserMod dell
+ where
+  dell | opt_Static || opt_CompilingPrelude = NotDll
+       | otherwise		 	    = Dll
+
 
 mkThisModule :: ModuleName -> Module	-- The module being comiled
-mkThisModule name = Module name UserMod NotDll	-- ToDo: correct Dll flag?
+mkThisModule name = 
+  Module name UserMod NotDll -- This is fine, a Dll flag is only
+  			     -- pinned on imported modules.
 
 mkPrelModule :: ModuleName -> Module
 mkPrelModule name = Module name sys dll