Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
ed878dd2
Commit
ed878dd2
authored
Oct 30, 2000
by
sewardj
Browse files
[project @ 2000-10-30 11:18:14 by sewardj]
Tmp hacks to allow source-unchangedness to work in one-shot compilation.
parent
6da89cfb
Changes
3
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/Makefile
View file @
ed878dd2
# -----------------------------------------------------------------------------
# $Id: Makefile,v 1.10
2
2000/10/30
09:52:14 simonp
j Exp $
# $Id: Makefile,v 1.10
3
2000/10/30
11:18:14 seward
j Exp $
TOP
=
..
include
$(TOP)/mk/boilerplate.mk
...
...
@@ -366,7 +366,7 @@ parser/Parser.hs : parser/Parser.y
#-----------------------------------------------------------------------------
# Linking
SRC_LD_OPTS
+=
-no-link-chk
SRC_LD_OPTS
+=
-no-link-chk
-ldl
ifneq
"$(GhcWithHscBuiltViaC)" "YES"
ifeq
"$(GhcReportCompiles)" "YES"
...
...
ghc/compiler/main/DriverPipeline.hs
View file @
ed878dd2
-----------------------------------------------------------------------------
-- $Id: DriverPipeline.hs,v 1.1
0
2000/10/
27 13:50:25
sewardj Exp $
-- $Id: DriverPipeline.hs,v 1.1
1
2000/10/
30 11:18:14
sewardj Exp $
--
-- GHC Driver
--
...
...
@@ -413,7 +413,7 @@ run_phase Hsc basename suff input_fn output_fn
-- only do this if we're eventually going to generate a .o file.
-- (ToDo: do when generating .hc files too?)
--
-- Setting source_unchanged to "-fsource
_
unchanged" means that M.o seems
-- Setting source_unchanged to "-fsource
-
unchanged" means that M.o seems
-- to be up to date wrt M.hs; so no need to recompile unless imports have
-- changed (which the compiler itself figures out).
-- Setting source_unchanged to "" tells the compiler that M.o is out of
...
...
@@ -448,6 +448,7 @@ run_phase Hsc basename suff input_fn output_fn
-- run the compiler!
pcs
<-
initPersistentCompilerState
result
<-
hscMain
dyn_flags
{
hscOutName
=
output_fn
}
(
source_unchanged
==
"-fsource-unchanged"
)
summary
Nothing
-- no iface
emptyModuleEnv
-- HomeSymbolTable
...
...
@@ -749,6 +750,7 @@ compile summary old_iface hst hit pcs = do
-- run the compiler
hsc_result
<-
hscMain
dyn_flags
{
hscOutName
=
output_fn
}
(
panic
"compile:source_unchanged"
)
summary
old_iface
hst
hit
pcs
case
hsc_result
of
{
...
...
ghc/compiler/main/HscMain.lhs
View file @
ed878dd2
...
...
@@ -86,6 +86,7 @@ data HscResult
hscMain
:: DynFlags
-> Bool -- source unchanged?
-> ModSummary -- summary, including source filename
-> Maybe ModIface -- old interface, if available
-> HomeSymbolTable -- for home module ModDetails
...
...
@@ -93,11 +94,11 @@ hscMain
-> PersistentCompilerState -- IN: persistent compiler state
-> IO HscResult
hscMain dflags summary maybe_old_iface hst hit pcs
hscMain dflags
source_unchanged
summary maybe_old_iface hst hit pcs
= do {
-- ????? source_unchanged :: Bool -- extracted from summary?
let source_unchanged = trace "WARNING: source_unchanged?!" False
;
--
let source_unchanged = trace "WARNING: source_unchanged?!" False
--
;
putStrLn "checking old iface ...";
(pcs_ch, check_errs, (recomp_reqd, maybe_checked_iface))
<- checkOldIface dflags hit hst pcs (ms_mod summary)
...
...
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