From: simonmar Date: Fri, 4 Aug 2000 12:04:08 +0000 (+0000) Subject: [project @ 2000-08-04 12:04:08 by simonmar] X-Git-Tag: Approximately_9120_patches~3916 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b9574da4a89b888a25588bc874bda7438a56bc8c;p=ghc-hetmet.git [project @ 2000-08-04 12:04:08 by simonmar] wibble --- diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs index 3c64d36..6e3e112 100644 --- a/ghc/driver/Main.hs +++ b/ghc/driver/Main.hs @@ -1,6 +1,6 @@ {-# 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