diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-15 00:50:25 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-15 00:50:25 +0100 |
| commit | 7b44e519e7bd746ccab648c75c89a0f42f6c5871 (patch) | |
| tree | 48836ff4cabee78b188baae1b0b3a29da9a030ad /compiler/codeGen/CgCon.lhs | |
| parent | e94e97a134612e53ff8f5ce71914f8e7361a654a (diff) | |
| download | haskell-7b44e519e7bd746ccab648c75c89a0f42f6c5871.tar.gz | |
Remove a little more CPP
Diffstat (limited to 'compiler/codeGen/CgCon.lhs')
| -rw-r--r-- | compiler/codeGen/CgCon.lhs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/codeGen/CgCon.lhs b/compiler/codeGen/CgCon.lhs index b50ba8d779..26489e5945 100644 --- a/compiler/codeGen/CgCon.lhs +++ b/compiler/codeGen/CgCon.lhs @@ -69,11 +69,9 @@ cgTopRhsCon :: Id -- Name of thing bound to this RHS -> FCode (Id, CgIdInfo) cgTopRhsCon id con args = do { dflags <- getDynFlags - ; when (platformOS (targetPlatform dflags) == OSMinGW32) $ do { + ; when (platformOS (targetPlatform dflags) == OSMinGW32) $ -- Windows DLLs have a problem with static cross-DLL refs. - ; this_pkg <- getThisPackage - ; ASSERT( not (isDllConApp this_pkg con args) ) return () - } + ASSERT( not (isDllConApp dflags con args) ) return () ; ASSERT( args `lengthIs` dataConRepArity con ) return () -- LAY IT OUT |