Commit 5db7cffe authored by batterseapower's avatar batterseapower

Eliminate cvtToSRTLbl (dead code)

parent d2068cc2
......@@ -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
......
Markdown is supported
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