diff options
| author | Edward Z. Yang <ezyang@mit.edu> | 2011-03-22 14:17:02 +0000 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@mit.edu> | 2011-03-22 14:17:02 +0000 |
| commit | 3e3498ad6f60e94eb38a9c7586971495440b895b (patch) | |
| tree | 4bbc37bebe51812bf240edca2a4570be910da5fc | |
| parent | cb5260d444da0f74c2e06c7857dff2f163415ebd (diff) | |
| download | haskell-3e3498ad6f60e94eb38a9c7586971495440b895b.tar.gz | |
RednCounts can contain CAFs, so support them in cvtToClosureLbl.
| -rw-r--r-- | compiler/cmm/CLabel.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 79544445d7..4d9596197e 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) |