X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCLabel.hs;fp=compiler%2Fcmm%2FCLabel.hs;h=4d9596197e322e2e4ae9d9cc8779f3bdbdd24296;hp=79544445d7049ed483ec96d335f720651b57e192;hb=3e3498ad6f60e94eb38a9c7586971495440b895b;hpb=cb5260d444da0f74c2e06c7857dff2f163415ebd

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)