Commit ab10dec5 authored by apt's avatar apt
Browse files

[project @ 2001-08-28 08:34:29 by apt]

fix problem with -fno-code
parent 4240596e
......@@ -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 ...
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment