From 5109078b26bdbf226acdf1b0fe7c2861a7114571 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 5 Dec 2007 15:02:30 +0000 Subject: [PATCH] FIX #1110: hackery also needed when running gcc for CPP --- compiler/main/SysTools.lhs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index 26c2f1b..f5812f4 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -407,7 +407,9 @@ runUnlit dflags args = do runCpp :: DynFlags -> [Option] -> IO () runCpp dflags args = do let (p,args0) = pgm_P dflags - runSomething dflags "C pre-processor" p (args0 ++ args) + args1 = args0 ++ args + mb_env <- getGccEnv args1 + runSomethingFiltered dflags id "C pre-processor" p args1 mb_env runPp :: DynFlags -> [Option] -> IO () runPp dflags args = do -- 1.7.10.4