Commit 9bbcd77c authored by Simon Marlow's avatar Simon Marlow
Browse files

FIX #1110: the linker also needs the workaround

parent 11a6f10c
......@@ -510,7 +510,9 @@ runAs dflags args = do
runLink :: DynFlags -> [Option] -> IO ()
runLink dflags args = do
let (p,args0) = pgm_l dflags
runSomething dflags "Linker" p (args0++args)
args1 = args0 ++ args
mb_env <- getGccEnv args1
runSomethingFiltered dflags id "Linker" p args1 mb_env
runMkDLL :: DynFlags -> [Option] -> IO ()
runMkDLL dflags args = do
......
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