diff options
| author | simonmar <unknown> | 2001-10-29 11:31:51 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-10-29 11:31:51 +0000 |
| commit | 2660fbb9fd95646f8eb2f4f953711853bd85cc0e (patch) | |
| tree | 840ff8d8afdb90499fff07d7bee3fc121780bd65 | |
| parent | 2aa56b5d9c1a0a92ace9e0503736d35f826133a3 (diff) | |
| download | haskell-2660fbb9fd95646f8eb2f4f953711853bd85cc0e.tar.gz | |
[project @ 2001-10-29 11:31:51 by simonmar]
Understand the various C++ suffixes.
| -rw-r--r-- | ghc/compiler/main/DriverPhases.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ghc/compiler/main/DriverPhases.hs b/ghc/compiler/main/DriverPhases.hs index cfe1b3e866..4b6687ccbd 100644 --- a/ghc/compiler/main/DriverPhases.hs +++ b/ghc/compiler/main/DriverPhases.hs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: DriverPhases.hs,v 1.13 2001/10/26 00:53:27 sof Exp $ +-- $Id: DriverPhases.hs,v 1.14 2001/10/29 11:31:51 simonmar Exp $ -- -- GHC Driver -- @@ -64,6 +64,10 @@ startPhase "hscpp" = HsPp startPhase "hspp" = Hsc startPhase "hc" = HCc startPhase "c" = Cc +startPhase "cpp" = Cc +startPhase "C" = Cc +startPhase "cc" = Cc +startPhase "cxx" = Cc startPhase "raw_s" = Mangle startPhase "s" = As startPhase "S" = As @@ -91,7 +95,7 @@ phaseInputExt Ilasm = "il" haskellish_suffix = (`elem` [ "hs", "hspp", "hscpp", "lhs", "hc", "raw_s" ]) haskellish_src_suffix = (`elem` [ "hs", "hspp", "hscpp", "lhs" ]) -cish_suffix = (`elem` [ "c", "s", "S" ]) -- maybe .cc et al.?? +cish_suffix = (`elem` [ "c", "cpp", "C", "cc", "cxx", "s", "S" ]) #if mingw32_TARGET_OS || cygwin32_TARGET_OS objish_suffix = (`elem` [ "o", "O", "obj", "OBJ" ]) |