diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-10-20 15:57:13 -0700 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-10-20 16:28:42 -0700 |
| commit | 89a8d817f0c2951ec305c286a526205d06bf9221 (patch) | |
| tree | 5295cab951600148bd83f1cae0ae5250816dc257 /compiler/ghci/ByteCodeLink.lhs | |
| parent | 0202b7cefbaf76dc53d43562dbc84a52debe2eb2 (diff) | |
| download | haskell-89a8d817f0c2951ec305c286a526205d06bf9221.tar.gz | |
Revert "Rename _closure to _static_closure, apply naming consistently."
This reverts commit 35672072b4091d6f0031417bc160c568f22d0469.
Conflicts:
compiler/main/DriverPipeline.hs
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 9656dfb9b7..dc0ed60292 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 "static_closure" + = do let sym_to_find = primopToCLabel primop "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 "static_closure" + do let sym_to_find = nameToCLabel nm "closure" m <- lookupSymbol sym_to_find case m of Just (Ptr addr) -> case addrToAny# addr of |