[project @ 2000-10-13 10:26:38 by sewardj]

[ghc-hetmet.git] / ghc / compiler / main / DriverState.hs

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index 70ae73f..270e009 100644 (file)
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.2 2000/10/11 14:08:52 simonmar Exp $
+-- $Id: DriverState.hs,v 1.4 2000/10/11 16:26:04 simonmar Exp $
 --
 -- Settings for the driver
 --
@@ -658,7 +658,6 @@ way_details =
 
 GLOBAL_VAR(pgm_L,   error "pgm_L", String)
 GLOBAL_VAR(pgm_P,   cRAWCPP,       String)
-GLOBAL_VAR(pgm_C,   error "pgm_L", String)
 GLOBAL_VAR(pgm_c,   cGCC,          String)
 GLOBAL_VAR(pgm_m,   error "pgm_m", String)
 GLOBAL_VAR(pgm_s,   error "pgm_s", String)
@@ -671,6 +670,9 @@ GLOBAL_VAR(opt_C,      [], [String])
 GLOBAL_VAR(opt_l,      [], [String])
 GLOBAL_VAR(opt_dll,    [], [String])
 
+getStaticOpts :: IORef [String] -> IO [String]
+getStaticOpts ref = readIORef ref >>= return . reverse
+
 -----------------------------------------------------------------------------
 -- Via-C compilation stuff
 
@@ -756,17 +758,3 @@ run_something phase_name cmd
        else do when verb (putStr "\n")
                return ()
 
------------------------------------------------------------------------------
--- File suffixes & things
-
--- the output suffix for a given phase is uniquely determined by
--- the input requirements of the next phase.
-
-unlitInputExt       = "lhs"
-cppInputExt         = "lpp"
-hscInputExt         = "cpp"
-hccInputExt         = "hc"
-ccInputExt          = "c"
-mangleInputExt      = "raw_s"
-asInputExt          = "s"
-lnInputExt          = "o"