Skip to content
Snippets Groups Projects
Commit b9574da4 authored by Simon Marlow's avatar Simon Marlow
Browse files

[project @ 2000-08-04 12:04:08 by simonmar]

wibble
parent 161a6d3f
No related merge requests found
{-# OPTIONS -W #-}
-----------------------------------------------------------------------------
-- $Id: Main.hs,v 1.49 2000/08/04 09:45:20 simonmar Exp $
-- $Id: Main.hs,v 1.50 2000/08/04 12:04:08 simonmar Exp $
--
-- GHC Driver program
--
......@@ -1346,6 +1346,7 @@ genPipeline todo stop_flag filename
-- 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
annotated_pipeline = annotatePipeline (pipeline ++ [ Ln ]) stop_phase
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment