From: simonpj Date: Mon, 1 Oct 2001 15:42:42 +0000 (+0000) Subject: [project @ 2001-10-01 15:42:42 by simonpj] X-Git-Tag: Approximately_9120_patches~878 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bc65d813b9759663805c028e55ce2b9f920fc674;p=ghc-hetmet.git [project @ 2001-10-01 15:42:42 by simonpj] ILX ifdefery --- diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs index 2e5902b..c441751 100644 --- a/ghc/compiler/main/DriverPipeline.hs +++ b/ghc/compiler/main/DriverPipeline.hs @@ -189,7 +189,9 @@ genPipeline todo stop_flag persistent_output lang (filename,suffix) stop_phase = case todo of StopBefore As | split -> SplitAs +#ifdef ILX | real_lang == HscILX -> Ilasm +#endif StopBefore phase -> phase DoMkDependHS -> Ln DoLink -> Ln @@ -237,7 +239,9 @@ genPipeline todo stop_flag persistent_output lang (filename,suffix) Mangle | keep_raw_s -> Persistent As | keep_s -> Persistent HCc | keep_hc -> Persistent +#ifdef ILX Ilasm | keep_il -> Persistent +#endif _other -> Temporary -- add information about output files to the pipeline