Commit fb931d95 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-12-18 15:17:46 by simonmar]

fix for -S w/ -split-objs
parent dec0b8b0
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- $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 -- GHC Driver
-- --
...@@ -230,9 +230,11 @@ genPipeline todo stop_flag persistent_output lang filename ...@@ -230,9 +230,11 @@ genPipeline todo stop_flag persistent_output lang filename
-- the suffix on an output file is determined by the next phase -- 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 -- 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. -- to force the output from the final phase to be a .o file.
stop_phase = case todo of StopBefore phase -> phase stop_phase = case todo of
DoMkDependHS -> Ln StopBefore As | split -> SplitAs
DoLink -> Ln StopBefore phase -> phase
DoMkDependHS -> Ln
DoLink -> Ln
annotated_pipeline = annotatePipeline (pipeline ++ [ Ln ]) stop_phase annotated_pipeline = annotatePipeline (pipeline ++ [ Ln ]) stop_phase
phase_ne p (p1,_,_) = (p1 /= p) phase_ne p (p1,_,_) = (p1 /= p)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment