Commit a2a9410c authored by simonmar's avatar simonmar
Browse files

[project @ 2005-02-02 10:14:01 by simonmar]

Fix isLinkMode and adjust formatting a little
parent b5330f14
......@@ -93,10 +93,11 @@ compileFile mode dflags src = do
ghc_link <- readIORef v_GhcLink -- Set by -c or -no-link
-- When linking, the -o argument refers to the linker's output.
-- otherwise, we use it as the name for the pipeline's output.
let maybe_o_file | isLinkMode mode && not (isNoLink ghc_link)
= Nothing -- -o foo applies to linker
| otherwise
= o_file -- -o foo applies to the file we are compiling now
let maybe_o_file
| isLinkMode mode && not (isNoLink ghc_link) = Nothing
-- -o foo applies to linker
| otherwise = o_file
-- -o foo applies to the file we are compiling now
stop_phase = case mode of
StopBefore As | split -> SplitAs
......@@ -104,8 +105,8 @@ compileFile mode dflags src = do
other -> StopLn
mode_flag_string <- readIORef v_GhcModeFlag
(_, out_file) <- runPipeline stop_phase mode_flag_string dflags True maybe_o_file
src Nothing{-no ModLocation-}
(_, out_file) <- runPipeline stop_phase mode_flag_string dflags
True maybe_o_file src Nothing{-no ModLocation-}
return out_file
......
......@@ -78,7 +78,9 @@ isInterpretiveMode _ = False
isMakeMode DoMake = True
isMakeMode _ = False
isLinkMode (StopBefore p) = True
-- True if we are going to attempt to link in this mode.
-- (we might not actually link, depending on the GhcLink flag)
isLinkMode (StopBefore StopLn) = True
isLinkMode DoMake = True
isLinkMode _ = False
......
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