From 51c592c2a899c715678c14f1e9d8d541f705257d Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 15 Sep 1999 13:46:38 +0000
Subject: [PATCH] [project @ 1999-09-15 13:46:38 by sof] mkVanillaModule: made
DLL savvy
---
ghc/compiler/basicTypes/Module.lhs | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 1d6100a80fa0..ead105af48e8 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
--
GitLab