RednCounts can contain CAFs, so support them in cvtToClosureLbl.

3e3498ad · Edward Z. Yang · cb5260d4 · 3e3498ad
Commit 3e3498ad authored Mar 22, 2011 by Edward Z. Yang
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

compiler/cmm/CLabel.hs compiler/cmm/CLabel.hs +1 -0

No files found.
--- 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)