[project @ 2000-07-03 15:03:13 by simonmar]

fix phase ordering for NCG + -split-objs.

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index e3a3bc5..6c982ad 100644 (file)
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1123,7 +1123,8 @@ run_pipeline last_phase do_linking use_ofile orig_basename (phase, input_fn)
          case phase of
                Hsc -> case lang of
                            HscC   -> HCc
-                           HscAsm -> As
+                           HscAsm | split     -> SplitMangle
+                                  | otherwise -> As
 
                HCc  | mangle    -> Mangle
                     | otherwise -> As