From fb931d955c85ebf16f7d984210cd5a4b0dbeb929 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 18 Dec 2000 15:17:46 +0000
Subject: [PATCH] [project @ 2000-12-18 15:17:46 by simonmar] fix for -S w/
 -split-objs

---
 ghc/compiler/main/DriverPipeline.hs |   10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 1733d63..74d0b0a 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.42 2000/12/18 12:43:04 sewardj Exp $
+-- $Id: DriverPipeline.hs,v 1.43 2000/12/18 15:17:46 simonmar Exp $
 --
 -- GHC Driver
 --
@@ -230,9 +230,11 @@ genPipeline todo stop_flag persistent_output lang filename
 	-- the suffix on an output file is determined by the next phase
 	-- in the pipeline, so we add linking to the end of the pipeline
 	-- to force the output from the final phase to be a .o file.
-      stop_phase = case todo of StopBefore phase -> phase
-				DoMkDependHS	 -> Ln
-				DoLink           -> Ln
+      stop_phase = case todo of 
+			StopBefore As | split -> SplitAs
+			StopBefore phase      -> phase
+			DoMkDependHS	      -> Ln
+			DoLink                -> Ln
       annotated_pipeline = annotatePipeline (pipeline ++ [ Ln ]) stop_phase
 
       phase_ne p (p1,_,_) = (p1 /= p)
-- 
1.7.10.4