projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-10-26 14:34:57 by sewardj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
ghci
/
CompManager.lhs
diff --git
a/ghc/compiler/ghci/CompManager.lhs
b/ghc/compiler/ghci/CompManager.lhs
index
90ef10c
..
dc03339
100644
(file)
--- a/
ghc/compiler/ghci/CompManager.lhs
+++ b/
ghc/compiler/ghci/CompManager.lhs
@@
-26,7
+26,7
@@
import Finder ( Finder, newFinder,
import CmSummarise ( summarise, ModSummary(..),
mi_name, ms_get_imports,
name_of_summary, deps_of_summary )
import CmSummarise ( summarise, ModSummary(..),
mi_name, ms_get_imports,
name_of_summary, deps_of_summary )
-import CmCompile ( PCS, emptyPCS, HST, HIT, CompResult(..), cmCompile )
+--import CmCompile ( PCS, emptyPCS, HST, HIT, CompResult(..), cmCompile )
import CmLink ( PLS, emptyPLS, Linkable(..),
link, LinkResult(..),
filterModuleLinkables, modname_of_linkable,
import CmLink ( PLS, emptyPLS, Linkable(..),
link, LinkResult(..),
filterModuleLinkables, modname_of_linkable,
@@
-58,7
+58,7
@@
type ModHandle = String -- ToDo: do better?
data PersistentCMState
= PersistentCMState {
hst :: HomeSymbolTable, -- home symbol table
data PersistentCMState
= PersistentCMState {
hst :: HomeSymbolTable, -- home symbol table
- hit :: HomeInterfaceTable, -- home interface table
+ hit :: HomeIfaceTable, -- home interface table
ui :: UnlinkedImages, -- the unlinked images
mg :: ModuleGraph -- the module graph
}
ui :: UnlinkedImages, -- the unlinked images
mg :: ModuleGraph -- the module graph
}
@@
-69,7
+69,7
@@
emptyPCMS = PersistentCMState
hst = emptyHST, hit = emptyHIT,
ui = emptyUI, mg = emptyMG }
hst = emptyHST, hit = emptyHIT,
ui = emptyUI, mg = emptyMG }
-emptyHIT :: HomeInterfaceTable
+emptyHIT :: HomeIfaceTable
emptyHIT = emptyFM
emptyHST :: HomeSymbolTable
emptyHST = emptyFM
emptyHIT = emptyFM
emptyHST :: HomeSymbolTable
emptyHST = emptyFM
@@
-137,6
+137,8
@@
cmLoadModule cmstate1 modname
-- then generate version 2's by removing from HIT,HST,UI any
-- modules in the old MG which are not in the new one.
-- then generate version 2's by removing from HIT,HST,UI any
-- modules in the old MG which are not in the new one.
+ -- TODO: call newFinder to reestablish home module cache?!
+
putStr "cmLoadModule: downsweep begins\n"
mg2unsorted <- downsweep modname finderr
putStrLn (showSDoc (vcat (map ppr mg2unsorted)))
putStr "cmLoadModule: downsweep begins\n"
mg2unsorted <- downsweep modname finderr
putStrLn (showSDoc (vcat (map ppr mg2unsorted)))