From c4375fb6daf06169facb03d1f6eb260ffa5f5793 Mon Sep 17 00:00:00 2001 From: sewardj Date: Wed, 15 Aug 2001 13:27:43 +0000 Subject: [PATCH] [project @ 2001-08-15 13:27:43 by sewardj] Add a couple of #ifdef ILX. --- ghc/compiler/main/DriverPipeline.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs index 56f68f5..2f06714 100644 --- a/ghc/compiler/main/DriverPipeline.hs +++ b/ghc/compiler/main/DriverPipeline.hs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $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 -- @@ -174,8 +174,10 @@ genPipeline todo stop_flag persistent_output lang (filename,suffix) 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 ] @@ -1023,7 +1025,9 @@ compile ghci_mode summary source_unchanged have_object 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, -- 1.7.10.4