X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FSysTools.lhs;h=e098dd9eabce8cf301e895694ebe4014d38f95b5;hp=64e7b7803f1ecef11553a6cdebb3ee1fc414339b;hb=2ebe8addfaae2bc65e6b87ad369928b02053014f;hpb=04a42d01c41923baf66eacabf6ffb22dfe367108

diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index 64e7b78..e098dd9 100644
--- a/compiler/main/SysTools.lhs
+++ b/compiler/main/SysTools.lhs
@@ -22,6 +22,7 @@ module SysTools (
 	copy,
         copyWithHeader,
 	normalisePath,          -- FilePath -> FilePath
+        getExtraViaCOpts,
 	
 	-- Temporary-file management
 	setTmpDir,
@@ -536,6 +537,10 @@ copyWithHeader dflags purpose maybe_header from to = do
   hPutStr h ls
   hClose h
 
+getExtraViaCOpts :: DynFlags -> IO [String]
+getExtraViaCOpts dflags = do
+  f <- readFile (topDir dflags `joinFileName` "extra-gcc-opts")
+  return (words f)
 \end{code}
 
 %************************************************************************