diff options
| author | wolfgang <unknown> | 2005-04-12 19:58:57 +0000 |
|---|---|---|
| committer | wolfgang <unknown> | 2005-04-12 19:58:57 +0000 |
| commit | 48ea897f45f17d1e09af59034fad9271702c7393 (patch) | |
| tree | 9358f6d8bcc8da40d02d8b0bc27d5c0e910821ec /ghc/compiler/codeGen | |
| parent | 7e55e663ba1d7af20eb15f7496f0706f3879eef8 (diff) | |
| download | haskell-48ea897f45f17d1e09af59034fad9271702c7393.tar.gz | |
[project @ 2005-04-12 19:58:56 by wolfgang]
Dynamic Linking:
On non-Win32, we can store cross-dylib pointers in static data, so disable
a Win32-specific hack on the other platforms, to prevent code bloat.
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgCon.lhs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ghc/compiler/codeGen/CgCon.lhs b/ghc/compiler/codeGen/CgCon.lhs index 9a9f11aa4d..d94cbf03f6 100644 --- 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 |