Commit d8afca91 authored by simonmar's avatar simonmar

[project @ 2005-10-28 11:29:19 by simonmar]

Fix double "Linking ..." message, and mention the name of the
executable in the message.
parent bbf874f7
......@@ -307,8 +307,6 @@ link BatchCompile dflags batch_attempt_linking hpt
return Succeeded
else do
debugTraceMsg dflags 1 (text "Linking ...")
let getOfiles (LM _ _ us) = map nameOfObject (filter isObject us)
obj_files = concatMap getOfiles linkables
......@@ -328,7 +326,8 @@ link BatchCompile dflags batch_attempt_linking hpt
return Succeeded
else do
debugTraceMsg dflags 1 (ptext SLIT("Linking ..."))
debugTraceMsg dflags 1 (ptext SLIT("Linking") <+> text exe_file
<+> text "...")
-- Don't showPass in Batch mode; doLink will do that for us.
staticLink dflags obj_files pkg_deps
......
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