From: apt <unknown>
Date: Tue, 28 Aug 2001 08:34:29 +0000 (+0000)
Subject: [project @ 2001-08-28 08:34:29 by apt]
X-Git-Tag: Approximately_9120_patches~1069
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ab10dec5390e625f5624a91e0cb9c4d1a4ecd6e7;p=ghc-hetmet.git

[project @ 2001-08-28 08:34:29 by apt]
fix problem with -fno-code
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 8529d4e..c69f5ba 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -266,7 +266,7 @@ runPipeline pipeline (input_fn,suffix) do_linking use_ofile
   where (basename, _) = splitFilename input_fn
 
 pipeLoop [] input_fn _ _ _ _ = return input_fn
-pipeLoop ((phase, keep, o_suffix):phases) 
+pipeLoop (all_phases@((phase, keep, o_suffix):phases))
 	(input_fn,real_suff) do_linking use_ofile orig_basename orig_suffix
   = do
 
@@ -277,7 +277,7 @@ pipeLoop ((phase, keep, o_suffix):phases)
 	-- checker has determined that recompilation isn't necessary.
      case mbCarryOn of
        Nothing -> do
-	      let (_,keep,final_suffix) = last phases
+	      let (_,keep,final_suffix) = last all_phases
 	      ofile <- outputFileName True keep final_suffix
 	      return (ofile, final_suffix)
           -- carry on ...