From 3d89e057aea938310e8ce88a2cd89f0a2fc37f2d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 27 Jun 2002 15:15:05 +0000
Subject: [PATCH] [project @ 2002-06-27 15:15:05 by simonmar] Don't process
 OPTIONS in the HsPp phase as well as the cpp phase. Fixes
 problems with include files appearing twice in stub files.

---
 ghc/compiler/main/DriverPipeline.hs |    7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 8f70de4..0cb43c3 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -401,12 +401,9 @@ run_phase Cpp basename suff input_fn output_fn
 
 -------------------------------------------------------------------------------
 -- HsPp phase 
-run_phase HsPp basename suff input_fn output_fn
-  = do src_opts <- getOptionsFromSource input_fn
-       unhandled_flags <- processArgs dynamic_flags src_opts []
-       checkProcessArgsResult unhandled_flags basename suff
 
-       let orig_fn = basename ++ '.':suff
+run_phase HsPp basename suff input_fn output_fn
+  = do let orig_fn = basename ++ '.':suff
        do_pp   <- dynFlag ppFlag
        if not do_pp then
            -- no need to preprocess, just pass input file along
-- 
1.7.10.4