projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-03-04 12:01:11 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
iface
/
BinIface.hs
diff --git
a/ghc/compiler/iface/BinIface.hs
b/ghc/compiler/iface/BinIface.hs
index
8570f6b
..
b809e3a
100644
(file)
--- a/
ghc/compiler/iface/BinIface.hs
+++ b/
ghc/compiler/iface/BinIface.hs
@@
-94,6
+94,7
@@
readBinIface hi_path = getBinFileWithDict hi_path
instance Binary ModIface where
put_ bh (ModIface {
mi_module = mod,
instance Binary ModIface where
put_ bh (ModIface {
mi_module = mod,
+ mi_boot = is_boot,
mi_mod_vers = mod_vers,
mi_package = _, -- we ignore the package on output
mi_orphan = orphan,
mi_mod_vers = mod_vers,
mi_package = _, -- we ignore the package on output
mi_orphan = orphan,
@@
-111,6
+112,7
@@
instance Binary ModIface where
build_tag <- readIORef v_Build_tag
put bh build_tag
put_ bh mod
build_tag <- readIORef v_Build_tag
put bh build_tag
put_ bh mod
+ put_ bh is_boot
put_ bh mod_vers
put_ bh orphan
lazyPut bh deps
put_ bh mod_vers
put_ bh orphan
lazyPut bh deps
@@
-145,7
+147,7
@@
instance Binary ModIface where
++ build_tag ++ ", found " ++ check_way))
mod_name <- get bh
++ build_tag ++ ", found " ++ check_way))
mod_name <- get bh
-
+ is_boot <- get bh
mod_vers <- get bh
orphan <- get bh
deps <- lazyGet bh
mod_vers <- get bh
orphan <- get bh
deps <- lazyGet bh
@@
-161,8
+163,8
@@
instance Binary ModIface where
return (ModIface {
mi_package = HomePackage, -- to be filled in properly later
mi_module = mod_name,
return (ModIface {
mi_package = HomePackage, -- to be filled in properly later
mi_module = mod_name,
+ mi_boot = is_boot,
mi_mod_vers = mod_vers,
mi_mod_vers = mod_vers,
- mi_boot = False, -- Binary interfaces are never .hi-boot files!
mi_orphan = orphan,
mi_deps = deps,
mi_usages = usages,
mi_orphan = orphan,
mi_deps = deps,
mi_usages = usages,
@@
-171,6
+173,7
@@
instance Binary ModIface where
mi_fixities = fixities,
mi_deprecs = deprecs,
mi_decls = decls,
mi_fixities = fixities,
mi_deprecs = deprecs,
mi_decls = decls,
+ mi_globals = Nothing,
mi_insts = insts,
mi_rules = rules,
mi_rule_vers = rule_vers,
mi_insts = insts,
mi_rules = rules,
mi_rule_vers = rule_vers,