diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2011-07-29 09:32:58 +0100 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2011-07-29 09:53:07 +0100 |
| commit | 76b93dcb27da2994b7eb3c70b16faabf06e9bd82 (patch) | |
| tree | 22c893ae2d2caef6bab6d2d9ef2b72cc3a5ee783 /compiler/cmm/CLabel.hs | |
| parent | 246922757495e40579796a960c57017d1ecfcc7c (diff) | |
| download | haskell-76b93dcb27da2994b7eb3c70b16faabf06e9bd82.tar.gz | |
Remove last use of entryLblToInfoLbl
Diffstat (limited to 'compiler/cmm/CLabel.hs')
| -rw-r--r-- | compiler/cmm/CLabel.hs | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 06b954eee3..cb3b6c6ed9 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -100,7 +100,7 @@ module CLabel ( mkHpcTicksLabel, hasCAF, - entryLblToInfoLbl, cvtToClosureLbl, + cvtToClosureLbl, needsCDecl, isAsmTemp, maybeAsmTemp, externallyVisibleCLabel, isMathFun, isCFunctionLabel, isGcPtrLabel, labelDynamic, @@ -500,18 +500,7 @@ mkPlainModuleInitLabel :: Module -> CLabel mkPlainModuleInitLabel mod = PlainModuleInitLabel mod -- ----------------------------------------------------------------------------- --- Converting between info labels and entry/ret labels. - -entryLblToInfoLbl :: CLabel -> CLabel -entryLblToInfoLbl (IdLabel n c (Entry lcl)) = IdLabel n c (InfoTable lcl) -entryLblToInfoLbl (IdLabel n c ConEntry) = IdLabel n c ConInfoTable -entryLblToInfoLbl (IdLabel n c StaticConEntry) = IdLabel n c StaticInfoTable -entryLblToInfoLbl (CaseLabel n CaseReturnPt) = CaseLabel n CaseReturnInfo -entryLblToInfoLbl (CmmLabel m str CmmEntry) = CmmLabel m str CmmInfo -entryLblToInfoLbl (CmmLabel m str CmmRet) = CmmLabel m str CmmRetInfo -entryLblToInfoLbl l - = pprPanic "CLabel.entryLblToInfoLbl" (pprCLabel l) - +-- Brutal method of obtaining a closure label cvtToClosureLbl (IdLabel n c (InfoTable _)) = IdLabel n c Closure cvtToClosureLbl (IdLabel n c (Entry _)) = IdLabel n c Closure |