Commit 5109078b authored by Simon Marlow's avatar Simon Marlow
Browse files

FIX #1110: hackery also needed when running gcc for CPP

parent f4d6209d
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment