projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6c58d6e
)
[project @ 2001-02-07 13:47:03 by sewardj]
author
sewardj
<unknown>
Wed, 7 Feb 2001 13:47:03 +0000
(13:47 +0000)
committer
sewardj
<unknown>
Wed, 7 Feb 2001 13:47:03 +0000
(13:47 +0000)
#ifndef GHCI wibbles.
ghc/compiler/compMan/CmLink.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/compMan/CmLink.lhs
b/ghc/compiler/compMan/CmLink.lhs
index
c363761
..
e3935cf
100644
(file)
--- a/
ghc/compiler/compMan/CmLink.lhs
+++ b/
ghc/compiler/compMan/CmLink.lhs
@@
-107,6
+107,7
@@
unload :: GhciMode
-> PersistentLinkerState
-> IO PersistentLinkerState
-> PersistentLinkerState
-> IO PersistentLinkerState
+#ifdef GHCI
unload Batch dflags linkables pls = return pls
unload Interactive dflags linkables pls
= do new_loaded <- filterM maybeUnload (objects_loaded pls)
unload Batch dflags linkables pls = return pls
unload Interactive dflags linkables pls
= do new_loaded <- filterM maybeUnload (objects_loaded pls)
@@
-131,7
+132,9
@@
unload Interactive dflags linkables pls
| otherwise -> return True
where
unloadObjs = mapM unloadObj [ f | DotO f <- objs ]
| otherwise -> return True
where
unloadObjs = mapM unloadObj [ f | DotO f <- objs ]
-
+#else
+unload = panic "CmLink.unload: no interpreter"
+#endif
-----------------------------------------------------------------------------
-- Linking
-----------------------------------------------------------------------------
-- Linking
@@
-212,7
+215,6
@@
filterModuleLinkables p (li:lis)
#ifndef GHCI
linkObjs = panic "CmLink.linkObjs: no interpreter"
#ifndef GHCI
linkObjs = panic "CmLink.linkObjs: no interpreter"
-unload = panic "CmLink.unload: no interpreter"
lookupClosure = panic "CmLink.lookupClosure: no interpreter"
#else
linkObjs [] pls = linkFinish pls []
lookupClosure = panic "CmLink.lookupClosure: no interpreter"
#else
linkObjs [] pls = linkFinish pls []