[commit: ghc] master: Revert "Fix processHeapClosureForDead CONSTR_NOCAF case:" (9430901)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/9430901df1428e9ea512d136648e1eba3c9b9a1c/ghc

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

commit 9430901df1428e9ea512d136648e1eba3c9b9a1c
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Fri Apr 13 12:10:45 2018 -0400

    Revert "Fix processHeapClosureForDead CONSTR_NOCAF case:"
    
    This reverts commit a303584e58b3f4791bc5881cb722e7f498e14554.


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

9430901df1428e9ea512d136648e1eba3c9b9a1c
 rts/LdvProfile.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c
index 7cf9ceb..7899416 100644
--- a/rts/LdvProfile.c
+++ b/rts/LdvProfile.c
@@ -101,7 +101,6 @@ processHeapClosureForDead( const StgClosure *c )
     case CONSTR_2_0:
     case CONSTR_1_1:
     case CONSTR_0_2:
-    case CONSTR_NOCAF:
     case FUN:
     case FUN_1_0:
     case FUN_0_1:
@@ -131,6 +130,7 @@ processHeapClosureForDead( const StgClosure *c )
     case IND_STATIC:
     case FUN_STATIC:
     case THUNK_STATIC:
+    case CONSTR_NOCAF:
         // stack objects
     case UPDATE_FRAME:
     case CATCH_FRAME:
@@ -139,9 +139,6 @@ processHeapClosureForDead( const StgClosure *c )
     case RET_BCO:
     case RET_SMALL:
     case RET_BIG:
-    case CATCH_STM_FRAME:
-    case CATCH_RETRY_FRAME:
-    case ATOMICALLY_FRAME:
         // others
     case INVALID_OBJECT:
     case COMPACT_NFDATA: