Commit 20d8e8c3 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Don't try to use -dynamic-too on Windows

It doesn't work
parent 2ea79ab7
......@@ -1188,7 +1188,12 @@ doDynamicToo dflags0 = let dflags1 = addWay' WayDyn dflags0
-- | Used by 'GHC.newSession' to partially initialize a new 'DynFlags' value
initDynFlags :: DynFlags -> IO DynFlags
initDynFlags dflags = do
refCanGenerateDynamicToo <- newIORef True
let -- We can't build with dynamic-too on Windows, as labels before
-- the fork point are different depending on whether we are
-- building dynamically or not.
platformCanGenerateDynamicToo
= platformOS (targetPlatform dflags) /= OSMinGW32
refCanGenerateDynamicToo <- newIORef platformCanGenerateDynamicToo
refFilesToClean <- newIORef []
refDirsToClean <- newIORef Map.empty
refFilesToNotIntermediateClean <- newIORef []
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment