[commit: ghc] cardinality: Reinstate no-updaete selectors (24b71df)

[Simon Peyton Jones]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : cardinality

https://github.com/ghc/ghc/commit/24b71df01a7af17f47fed05e5a8d2f745bfcffe5

>---------------------------------------------------------------

commit 24b71df01a7af17f47fed05e5a8d2f745bfcffe5
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Mar 21 15:55:25 2013 +0000

    Reinstate no-updaete selectors

>---------------------------------------------------------------

 compiler/cmm/CLabel.hs | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs
index e901168..dd2a74c 100644
--- a/compiler/cmm/CLabel.hs
+++ b/compiler/cmm/CLabel.hs
@@ -1005,14 +1005,11 @@ pprCLbl (CmmLabel _ str CmmPrimCall)    = ftext str
 
 pprCLbl (RtsLabel (RtsApFast str))   = ftext str <> ptext (sLit "_fast")
 
-pprCLbl (RtsLabel (RtsSelectorInfoTable _upd_reqd offset))
+pprCLbl (RtsLabel (RtsSelectorInfoTable upd_reqd offset))
   = hcat [ptext (sLit "stg_sel_"), text (show offset),
-                  ptext (sLit "_upd_info")
--- RTS only has updatable selector thunks at the moment
--- so we use just them; see Trac #7771.
---                ptext (if upd_reqd
---                        then (sLit "_upd_info")
---                        else (sLit "_noupd_info"))
+          ptext (if upd_reqd
+                 then (sLit "_upd_info")
+                 else (sLit "_noupd_info"))
         ]
 
 pprCLbl (RtsLabel (RtsSelectorEntry upd_reqd offset))