Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
6435b43d
Commit
6435b43d
authored
Jun 08, 2001
by
sof
Browse files
[project @ 2001-06-08 20:09:43 by sof]
When checking to see whether the .o is up-to-date, use the -o .o (if given)
parent
74a7a264
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/main/DriverPipeline.hs
View file @
6435b43d
-----------------------------------------------------------------------------
-- $Id: DriverPipeline.hs,v 1.7
5
2001/06/0
7 11:03:07 simonmar
Exp $
-- $Id: DriverPipeline.hs,v 1.7
6
2001/06/0
8 20:09:43 sof
Exp $
--
-- GHC Driver
--
...
...
@@ -480,9 +480,13 @@ run_phase Hsc basename suff input_fn output_fn
-- changed (which the compiler itself figures out).
-- Setting source_unchanged to False tells the compiler that M.o is out of
-- date wrt M.hs (or M.o doesn't exist) so we must recompile regardless.
do_recomp
<-
readIORef
v_Recomp
todo
<-
readIORef
v_GhcMode
let
o_file
=
unJust
"source_unchanged"
(
ml_obj_file
location
)
do_recomp
<-
readIORef
v_Recomp
todo
<-
readIORef
v_GhcMode
expl_o_file
<-
readIORef
v_Output_file
let
o_file
=
case
expl_o_file
of
Nothing
->
unJust
"source_unchanged"
(
ml_obj_file
location
)
Just
x
->
x
source_unchanged
<-
if
not
(
do_recomp
&&
(
todo
==
DoLink
||
todo
==
StopBefore
Ln
))
then
return
False
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment