projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
0f865e9
)
[project @ 2001-11-06 11:03:19 by simonmar]
author
simonmar
<unknown>
Tue, 6 Nov 2001 11:03:19 +0000
(11:03 +0000)
committer
simonmar
<unknown>
Tue, 6 Nov 2001 11:03:19 +0000
(11:03 +0000)
Add an ASSERT
ghc/compiler/ghci/ByteCodeLink.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/ghci/ByteCodeLink.lhs
b/ghc/compiler/ghci/ByteCodeLink.lhs
index
435c9cc
..
fd99f8e
100644
(file)
--- a/
ghc/compiler/ghci/ByteCodeLink.lhs
+++ b/
ghc/compiler/ghci/ByteCodeLink.lhs
@@
-578,7
+578,8
@@
lookupCE ce (Left nm)
= case lookupFM ce nm of
Just aa -> return aa
Nothing
- -> do let sym_to_find = nameToCLabel nm "closure"
+ -> ASSERT2(isGlobalName nm, ppr nm)
+ do let sym_to_find = nameToCLabel nm "closure"
m <- lookupSymbol sym_to_find
case m of
Just (Ptr addr) -> case addrToHValue# addr of