From: rrt <unknown>
Date: Mon, 1 Oct 2001 13:57:13 +0000 (+0000)
Subject: [project @ 2001-10-01 13:57:13 by rrt]
X-Git-Tag: Approximately_9120_patches~883
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5442d97ce3a9296fb1eaaa4214e6f8c313e45206;p=ghc-hetmet.git

[project @ 2001-10-01 13:57:13 by rrt]
Add -keep-il-file.
---

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index b696abe..d86d595 100644
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -#include "hschooks.h" #-}
 
 -----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.72 2001/09/25 18:08:47 ken Exp $
+-- $Id: DriverFlags.hs,v 1.73 2001/10/01 13:57:13 rrt Exp $
 --
 -- Driver flags
 --
@@ -222,6 +222,7 @@ static_flags =
   ,  ( "keep-hc-file"   , AnySuffix (\_ -> writeIORef v_Keep_hc_files True) )
   ,  ( "keep-s-file"    , AnySuffix (\_ -> writeIORef v_Keep_s_files  True) )
   ,  ( "keep-raw-s-file", AnySuffix (\_ -> writeIORef v_Keep_raw_s_files  True) )
+  ,  ( "keep-il-file"   , AnySuffix (\_ -> writeIORef v_Keep_il_files True) )
   ,  ( "keep-tmp-files" , AnySuffix (\_ -> writeIORef v_Keep_tmp_files True) )
 
   ,  ( "split-objs"	, NoArg (if can_split