-----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.98 2001/08/15 09:32:40 rrt Exp $
+-- $Id: DriverPipeline.hs,v 1.99 2001/08/15 13:27:43 sewardj Exp $
--
-- GHC Driver
--
HscJava | split -> not_valid
| otherwise -> error "not implemented: compiling via Java"
+#ifdef ILX
HscILX | split -> not_valid
| otherwise -> [ Unlit, Cpp, Hsc, Ilx2Il, Ilasm ]
+#endif
| cish = [ Cc, As ]
HscC | keep_hc -> return (basename ++ '.':phaseInputExt HCc)
| otherwise -> newTempName (phaseInputExt HCc)
HscJava -> newTempName "java" -- ToDo
+#ifdef ILX
HscILX -> return (phaseInputExt Ilx2Il)
+#endif
HscInterpreted -> return (error "no output file")
let dyn_flags' = dyn_flags { hscOutName = output_fn,