Pass "-x c" as "-x" "c"; gcc-mingw gets confused by the former.
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.96 2001/08/10 23:08:25 sof Exp $
+-- $Id: DriverPipeline.hs,v 1.97 2001/08/15 00:36:54 sof Exp $
++ map SysTools.Option hs_src_cpp_opts
++ map SysTools.Option hscpp_opts
++ map SysTools.Option md_c_flags
++ map SysTools.Option hs_src_cpp_opts
++ map SysTools.Option hscpp_opts
++ map SysTools.Option md_c_flags
- ++ [ SysTools.Option "-x c"
+ ++ [ SysTools.Option "-x"
+ , SysTools.Option "c"
, SysTools.FileOption input_fn
, SysTools.Option "-o"
, SysTools.FileOption output_fn
, SysTools.FileOption input_fn
, SysTools.Option "-o"
, SysTools.FileOption output_fn
| otherwise = [ ]
excessPrecision <- readIORef v_Excess_precision
| otherwise = [ ]
excessPrecision <- readIORef v_Excess_precision
- SysTools.runCc ([ SysTools.Option "-x c"
+ SysTools.runCc ([ SysTools.Option "-x", SysTools.Option "c"
, SysTools.FileOption input_fn
, SysTools.Option "-o"
, SysTools.FileOption output_fn
, SysTools.FileOption input_fn
, SysTools.Option "-o"
, SysTools.FileOption output_fn