diff options
Diffstat (limited to 'ghc/Main.hs')
| -rw-r--r-- | ghc/Main.hs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 05a986daae..cca4581061 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -545,7 +545,7 @@ mode_flags = addFlag "-no-link" f)) , Flag "M" (PassFlag (setMode doMkDependHSMode)) , Flag "E" (PassFlag (setMode (stopBeforeMode anyHsc))) - , Flag "C" (PassFlag setGenerateC) + , Flag "C" (PassFlag (setMode (stopBeforeMode HCc))) , Flag "S" (PassFlag (setMode (stopBeforeMode As))) , Flag "-make" (PassFlag (setMode doMakeMode)) , Flag "-interactive" (PassFlag (setMode doInteractiveMode)) @@ -553,14 +553,6 @@ mode_flags = , Flag "e" (SepArg (\s -> setMode (doEvalMode s) "-e")) ] -setGenerateC :: String -> EwM ModeM () -setGenerateC f = do -- TODO: We used to warn and ignore when - -- unregisterised, but we no longer know whether - -- we are unregisterised at this point. Should - -- we check later on? - setMode (stopBeforeMode HCc) f - addFlag "-fvia-C" f - setMode :: Mode -> String -> EwM ModeM () setMode newMode newFlag = liftEwM $ do (mModeFlag, errs, flags') <- getCmdLineState |