Commit 6a9e5217 authored by Simon Marlow's avatar Simon Marlow
Browse files

remove dead code

parent 4464c92b
...@@ -43,7 +43,7 @@ module ClosureInfo ( ...@@ -43,7 +43,7 @@ module ClosureInfo (
closureFunInfo, isKnownFun, closureFunInfo, isKnownFun,
funTag, funTagLFInfo, tagForArity, clHasCafRefs, funTag, funTagLFInfo, tagForArity, clHasCafRefs,
enterIdLabel, enterLocalIdLabel, enterReturnPtLabel, enterIdLabel, enterReturnPtLabel,
nodeMustPointToIt, nodeMustPointToIt,
CallMethod(..), getCallMethod, CallMethod(..), getCallMethod,
...@@ -1032,11 +1032,6 @@ enterIdLabel id ...@@ -1032,11 +1032,6 @@ enterIdLabel id
| tablesNextToCode = mkInfoTableLabel id | tablesNextToCode = mkInfoTableLabel id
| otherwise = mkEntryLabel id | otherwise = mkEntryLabel id
enterLocalIdLabel :: Name -> CafInfo -> CLabel
enterLocalIdLabel id
| tablesNextToCode = mkLocalInfoTableLabel id
| otherwise = mkLocalEntryLabel id
enterReturnPtLabel :: Unique -> CLabel enterReturnPtLabel :: Unique -> CLabel
enterReturnPtLabel name enterReturnPtLabel name
| tablesNextToCode = mkReturnInfoLabel name | tablesNextToCode = mkReturnInfoLabel name
......
Supports Markdown
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