X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;h=c43381c374ea6a5cb7bd8dd877d3fa402865f6a8;hb=099c27165f511374eb22c39c2b75d5f8de8ee3a5;hp=44dbe5049f637b140bc30d87515e0fd0e78b25f6;hpb=6e5735b5dfe4ce212d7bbea56ac11dcf7d65c8a9;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 44dbe50..c43381c 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -135,7 +135,10 @@ genPipeline todo stop_flag persistent_output lang (filename,suffix)
    split      <- readIORef v_Split_object_files
    mangle     <- readIORef v_Do_asm_mangling
    keep_hc    <- readIORef v_Keep_hc_files
+#ifdef ILX
    keep_il    <- readIORef v_Keep_il_files
+   keep_ilx   <- readIORef v_Keep_ilx_files
+#endif
    keep_raw_s <- readIORef v_Keep_raw_s_files
    keep_s     <- readIORef v_Keep_s_files
    osuf       <- readIORef v_Object_suf
@@ -237,6 +240,7 @@ genPipeline todo stop_flag persistent_output lang (filename,suffix)
      			     As     | keep_s     -> Persistent
      			     HCc    | keep_hc    -> Persistent
 #ifdef ILX
+			     Ilx2Il | keep_ilx   -> Persistent
 			     Ilasm  | keep_il    -> Persistent
 #endif
      			     _other              -> Temporary
@@ -1072,7 +1076,9 @@ compile ghci_mode summary source_unchanged have_object
        (basename, _) = splitFilename input_fn
        
    keep_hc <- readIORef v_Keep_hc_files
+#ifdef ILX
    keep_il <- readIORef v_Keep_il_files
+#endif
    keep_s  <- readIORef v_Keep_s_files
 
    output_fn <-