X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverState.hs;h=8591f8a699d4e704f1c896a48d6e92134df3031b;hb=02edb7607692a5168b6636a100a27d2e4063b915;hp=522330e04f03318726da35000ad1e19b67aadb83;hpb=3738f22746c5619e00b4a26b38d6d2a98009b188;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index 522330e..8591f8a 100644
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.37 2001/03/28 11:01:19 simonmar Exp $
+-- $Id: DriverState.hs,v 1.38 2001/05/09 09:38:18 simonmar Exp $
 --
 -- Settings for the driver
 --
@@ -92,10 +92,13 @@ defaultHscLang
   | otherwise					=  HscC
 
 GLOBAL_VAR(v_Output_dir,  Nothing, Maybe String)
-GLOBAL_VAR(v_Object_suf,  Nothing, Maybe String)
 GLOBAL_VAR(v_Output_file, Nothing, Maybe String)
 GLOBAL_VAR(v_Output_hi,   Nothing, Maybe String)
 
+GLOBAL_VAR(v_Object_suf,  Nothing, Maybe String)
+GLOBAL_VAR(v_HC_suf,  	  Nothing, Maybe String)
+GLOBAL_VAR(v_Hi_suf,      "hi",	   String)
+
 GLOBAL_VAR(v_Ld_inputs,	[],      [String])
 
 odir_ify :: String -> IO String
@@ -113,12 +116,6 @@ osuf_ify f = do
 	Just s  -> return (newsuf s f)
 
 -----------------------------------------------------------------------------
--- Hi Files
-
-GLOBAL_VAR(v_Hi_on_stdout, 	False,	Bool)
-GLOBAL_VAR(v_Hi_suf,          	"hi",	String)
-
------------------------------------------------------------------------------
 -- Compiler optimisation options
 
 GLOBAL_VAR(v_OptLevel, 0, Int)