-----------------------------------------------------------------------------
--- $Id: DriverPhases.hs,v 1.10 2001/06/14 15:42:35 simonpj Exp $
+-- $Id: DriverPhases.hs,v 1.12 2001/08/15 09:32:40 rrt Exp $
--
-- GHC Driver
--
--
-----------------------------------------------------------------------------
+#include "../includes/config.h"
+
module DriverPhases (
Phase(..),
startPhase, -- :: String -> Phase
cish_file, cish_suffix
) where
-#include "../includes/config.h"
-
import DriverUtil
-----------------------------------------------------------------------------
| SplitMangle -- after mangler if splitting
| SplitAs
| As
- | Ln
+ | Ln
+#ifdef ILX
+ | Ilx2Il
+ | Ilasm
+#endif
deriving (Eq, Show)
-- the first compilation phase for a given file is determined
phaseInputExt SplitAs = "split_s" -- not really generated
phaseInputExt Ln = "o"
phaseInputExt MkDependHS = "dep"
+#ifdef ILX
+phaseInputExt Ilx2Il = "ilx"
+phaseInputExt Ilasm = "il"
+#endif
haskellish_suffix = (`elem` [ "hs", "hspp", "lhs", "hc", "raw_s" ])
haskellish_src_suffix = (`elem` [ "hs", "hspp", "lhs" ])