From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 1 Jun 2007 15:19:32 +0000 (+0000)
Subject: FIX #1110: the linker also needs the workaround
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9bbcd77cf9b66940058dbea1827db594e8ff6d7f

FIX #1110: the linker also needs the workaround
---

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