From 3e3498ad6f60e94eb38a9c7586971495440b895b Mon Sep 17 00:00:00 2001 From: "Edward Z. Yang" Date: Tue, 22 Mar 2011 14:17:02 +0000 Subject: [PATCH] RednCounts can contain CAFs, so support them in cvtToClosureLbl. --- compiler/cmm/CLabel.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 7954444..4d95961 100644 --- 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) -- 1.7.10.4