From 262020f9d6baa529d65b4fe0dadba52a204c4d70 Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 6 Nov 2001 11:03:19 +0000 Subject: [PATCH] [project @ 2001-11-06 11:03:19 by simonmar] Add an ASSERT --- ghc/compiler/ghci/ByteCodeLink.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs index 435c9cc..fd99f8e 100644 --- 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 -- 1.7.10.4