From ab10dec5390e625f5624a91e0cb9c4d1a4ecd6e7 Mon Sep 17 00:00:00 2001 From: apt Date: Tue, 28 Aug 2001 08:34:29 +0000 Subject: [PATCH] [project @ 2001-08-28 08:34:29 by apt] fix problem with -fno-code --- ghc/compiler/main/DriverPipeline.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 ... -- 1.7.10.4