Commit f1af6b5e authored by simonmar's avatar simonmar
Browse files

[project @ 2001-07-31 11:06:00 by simonmar]

make -keep-hc-files and -keep-s-files work with --make
parent f4f66fda
-----------------------------------------------------------------------------
-- $Id: DriverPipeline.hs,v 1.93 2001/07/24 04:52:49 ken Exp $
-- $Id: DriverPipeline.hs,v 1.94 2001/07/31 11:06:00 simonmar Exp $
--
-- GHC Driver
--
......@@ -952,12 +952,19 @@ compile ghci_mode summary source_unchanged have_object
let hsc_lang = hscLang dyn_flags
(basename, _) = splitFilename input_fn
output_fn <- case hsc_lang of
HscAsm -> newTempName (phaseInputExt As)
HscC -> newTempName (phaseInputExt HCc)
HscJava -> newTempName "java" -- ToDo
HscILX -> return (basename ++ ".ilx") -- newTempName "ilx" -- ToDo
HscInterpreted -> return (error "no output file")
keep_hc <- readIORef v_Keep_hc_files
keep_s <- readIORef v_Keep_s_files
output_fn <-
case hsc_lang of
HscAsm | keep_s -> return (basename ++ '.':phaseInputExt As)
| otherwise -> newTempName (phaseInputExt As)
HscC | keep_hc -> return (basename ++ '.':phaseInputExt HCc)
| otherwise -> newTempName (phaseInputExt HCc)
HscJava -> newTempName "java" -- ToDo
HscILX -> return (basename ++ ".ilx")
-- newTempName "ilx" -- ToDo
HscInterpreted -> return (error "no output file")
let dyn_flags' = dyn_flags { hscOutName = output_fn,
hscStubCOutName = basename ++ "_stub.c",
......
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