From 5705182c5001b354255b50d90b04d5a75b4fed04 Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Mon, 5 Feb 2001 17:52:49 +0000
Subject: [PATCH] [project @ 2001-02-05 17:52:49 by rrt] Add machdep C flags
 to cpp command line (for benefit of Windows, so that
 -mno-cygwin is passed to cpp and the right headers are
 obtained).

---
 ghc/compiler/main/DriverPipeline.hs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index d0bb19a..d81b6af 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.49 2001/01/19 15:26:37 simonmar Exp $
+-- $Id: DriverPipeline.hs,v 1.50 2001/02/05 17:52:49 rrt Exp $
 --
 -- GHC Driver
 --
@@ -335,6 +335,7 @@ run_phase Cpp basename suff input_fn output_fn
 							++ pkg_include_dirs)
 
 	    verb <- getVerbFlag
+	    (md_c_flags, _) <- machdepCCOpts
 
 	    runSomething "C pre-processor" 
 		(unwords
@@ -343,6 +344,7 @@ run_phase Cpp basename suff input_fn output_fn
 		    ++ include_paths
 		    ++ hs_src_cpp_opts
 		    ++ hscpp_opts
+		    ++ md_c_flags
 		    ++ [ "-x", "c", input_fn, ">>", output_fn ]
 		   ))
 	  else do
-- 
1.7.10.4