diff options
Diffstat (limited to 'compiler/ghci/ByteCodeLink.lhs')
| -rw-r--r-- | compiler/ghci/ByteCodeLink.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/ghci/ByteCodeLink.lhs b/compiler/ghci/ByteCodeLink.lhs index cbedb717fe..af31dc19e7 100644 --- a/compiler/ghci/ByteCodeLink.lhs +++ b/compiler/ghci/ByteCodeLink.lhs @@ -203,7 +203,7 @@ lookupStaticPtr addr_of_label_string lookupPrimOp :: PrimOp -> IO HValue lookupPrimOp primop - = do let sym_to_find = primopToCLabel primop "closure" + = do let sym_to_find = primopToCLabel primop "static_closure" m <- lookupSymbol sym_to_find case m of Just (Ptr addr) -> case addrToAny# addr of @@ -216,7 +216,7 @@ lookupName ce nm Just (_,aa) -> return aa Nothing -> ASSERT2(isExternalName nm, ppr nm) - do let sym_to_find = nameToCLabel nm "closure" + do let sym_to_find = nameToCLabel nm "static_closure" m <- lookupSymbol sym_to_find case m of Just (Ptr addr) -> case addrToAny# addr of |