[project @ 2005-04-12 19:58:56 by wolfgang]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgCon.lhs

diff --git a/ghc/compiler/codeGen/CgCon.lhs b/ghc/compiler/codeGen/CgCon.lhs
index 9a9f11a..d94cbf0 100644 (file)
--- a/ghc/compiler/codeGen/CgCon.lhs
+++ b/ghc/compiler/codeGen/CgCon.lhs
@@ -72,7 +72,10 @@ cgTopRhsCon :: Id            -- Name of thing bound to this RHS
 cgTopRhsCon id con args
   = do { 
        ; dflags <- getDynFlags
-       ; ASSERT( not (isDllConApp dflags con args) ) return ()
+#if mingw32_TARGET_OS
+        -- Windows DLLs have a problem with static cross-DLL refs.
+        ; ASSERT( not (isDllConApp dflags con args) ) return ()
+#endif
        ; ASSERT( args `lengthIs` dataConRepArity con ) return ()
 
        -- LAY IT OUT