RednCounts can contain CAFs, so support them in cvtToClosureLbl.

[ghc-hetmet.git] / compiler / cmm / CLabel.hs

diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs
index 7954444..4d95961 100644 (file)
--- a/compiler/cmm/CLabel.hs
+++ b/compiler/cmm/CLabel.hs
@@ -556,6 +556,7 @@ entryLblToInfoLbl l
 cvtToClosureLbl   (IdLabel n c InfoTable)      = IdLabel n c Closure
 cvtToClosureLbl   (IdLabel n c Entry)          = IdLabel n c Closure
 cvtToClosureLbl   (IdLabel n c ConEntry)       = IdLabel n c Closure
+cvtToClosureLbl   (IdLabel n c RednCounts)     = IdLabel n c Closure
 cvtToClosureLbl l@(IdLabel n c Closure)                = l
 cvtToClosureLbl l 
        = pprPanic "cvtToClosureLbl" (pprCLabel l)