projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
161a6d3
)
[project @ 2000-08-04 12:04:08 by simonmar]
author
simonmar
<unknown>
Fri, 4 Aug 2000 12:04:08 +0000
(12:04 +0000)
committer
simonmar
<unknown>
Fri, 4 Aug 2000 12:04:08 +0000
(12:04 +0000)
wibble
ghc/driver/Main.hs
patch
|
blob
|
history
diff --git
a/ghc/driver/Main.hs
b/ghc/driver/Main.hs
index
3c64d36
..
6e3e112
100644
(file)
--- a/
ghc/driver/Main.hs
+++ b/
ghc/driver/Main.hs
@@
-1,6
+1,6
@@
{-# OPTIONS -W #-}
-----------------------------------------------------------------------------
{-# 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
--
--
-- 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
-- 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
DoLink -> Ln
annotated_pipeline = annotatePipeline (pipeline ++ [ Ln ]) stop_phase