diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-04 13:59:15 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-04 14:34:04 +0000 |
| commit | 6a9e521713cb4cbc3c49fa861aa936730c346e5e (patch) | |
| tree | 8d58439729c08b3d71da791062e55aaca568ecfa | |
| parent | 4464c92badaedc45ce53d6349f6790f6d2298103 (diff) | |
| download | haskell-6a9e521713cb4cbc3c49fa861aa936730c346e5e.tar.gz | |
remove dead code
| -rw-r--r-- | compiler/codeGen/ClosureInfo.lhs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs index ac047edb89..8dc86ab39b 100644 --- a/compiler/codeGen/ClosureInfo.lhs +++ b/compiler/codeGen/ClosureInfo.lhs @@ -43,7 +43,7 @@ module ClosureInfo ( closureFunInfo, isKnownFun, funTag, funTagLFInfo, tagForArity, clHasCafRefs, - enterIdLabel, enterLocalIdLabel, enterReturnPtLabel, + enterIdLabel, enterReturnPtLabel, nodeMustPointToIt, CallMethod(..), getCallMethod, @@ -1032,11 +1032,6 @@ enterIdLabel id | tablesNextToCode = mkInfoTableLabel id | otherwise = mkEntryLabel id -enterLocalIdLabel :: Name -> CafInfo -> CLabel -enterLocalIdLabel id - | tablesNextToCode = mkLocalInfoTableLabel id - | otherwise = mkLocalEntryLabel id - enterReturnPtLabel :: Unique -> CLabel enterReturnPtLabel name | tablesNextToCode = mkReturnInfoLabel name |