From: Edward Z. Yang <ezyang@mit.edu>
Date: Tue, 22 Mar 2011 14:17:02 +0000 (+0000)
Subject: RednCounts can contain CAFs, so support them in cvtToClosureLbl.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=3e3498ad6f60e94eb38a9c7586971495440b895b

RednCounts can contain CAFs, so support them in cvtToClosureLbl.
---

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)