Commit 262020f9 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-11-06 11:03:19 by simonmar]

Add an ASSERT
parent 0f865e98
...@@ -578,7 +578,8 @@ lookupCE ce (Left nm) ...@@ -578,7 +578,8 @@ lookupCE ce (Left nm)
= case lookupFM ce nm of = case lookupFM ce nm of
Just aa -> return aa Just aa -> return aa
Nothing 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 m <- lookupSymbol sym_to_find
case m of case m of
Just (Ptr addr) -> case addrToHValue# addr of Just (Ptr addr) -> case addrToHValue# addr of
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment