X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FSysTools.lhs;h=a76cb53b5d23b2b30b5ea3c3d7da541cba52668b;hp=5805e3c3ea196465071bbb52d5876c5ec205cb82;hb=9bbcd77cf9b66940058dbea1827db594e8ff6d7f;hpb=11a6f10c72a16c079e6fabe461d1aa479bc53f1f

diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index 5805e3c..a76cb53 100644
--- a/compiler/main/SysTools.lhs
+++ b/compiler/main/SysTools.lhs
@@ -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