From 5d8094d37f70e03e9ad4493811c75d3dfbdf8fc0 Mon Sep 17 00:00:00 2001 From: Max Bolingbroke <batterseapower@hotmail.com> Date: Thu, 28 Jul 2011 23:58:39 +0100 Subject: [PATCH] Eliminate cvtToSRTLbl (dead code) --- compiler/cmm/CLabel.hs | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index b386db260191..06b954eee338 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -100,7 +100,7 @@ module CLabel ( mkHpcTicksLabel, hasCAF, - entryLblToInfoLbl, cvtToClosureLbl, cvtToSRTLbl, + entryLblToInfoLbl, cvtToClosureLbl, needsCDecl, isAsmTemp, maybeAsmTemp, externallyVisibleCLabel, isMathFun, isCFunctionLabel, isGcPtrLabel, labelDynamic, @@ -522,14 +522,6 @@ cvtToClosureLbl l = pprPanic "cvtToClosureLbl" (pprCLabel l) -cvtToSRTLbl (IdLabel n c (InfoTable _)) = mkSRTLabel n c -cvtToSRTLbl (IdLabel n c (Entry _)) = mkSRTLabel n c -cvtToSRTLbl (IdLabel n c ConEntry) = mkSRTLabel n c -cvtToSRTLbl l@(IdLabel n c Closure) = mkSRTLabel n c -cvtToSRTLbl l - = pprPanic "cvtToSRTLbl" (pprCLabel l) - - -- ----------------------------------------------------------------------------- -- Does a CLabel refer to a CAF? hasCAF :: CLabel -> Bool -- GitLab