X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FRetainerProfile.c;fp=rts%2FRetainerProfile.c;h=4441749200b13d4b731f27c2db975cd5c63ba55c;hp=fa12637ef635d3791220b96c56cdaa51e7668ee5;hb=02ec05e6564d9bbb536c5c0f3cd3c1b5503e3aea;hpb=9b266fba8f18f9f8a469bbe0b51b80a91217f1ab

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index fa12637..4441749 100644
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -620,11 +620,6 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child )
     case RET_BIG:
 	// invalid objects
     case IND:
-    case BLOCKED_FETCH:
-    case FETCH_ME:
-    case FETCH_ME_BQ:
-    case RBH:
-    case REMOTE_REF:
     case INVALID_OBJECT:
     default:
 	barf("Invalid object *c in push()");
@@ -983,11 +978,6 @@ pop( StgClosure **c, StgClosure **cp, retainer *r )
 	case RET_BIG:
 	    // invalid objects
 	case IND:
-	case BLOCKED_FETCH:
-	case FETCH_ME:
-	case FETCH_ME_BQ:
-	case RBH:
-	case REMOTE_REF:
 	case INVALID_OBJECT:
 	default:
 	    barf("Invalid object *c in pop()");
@@ -1145,11 +1135,6 @@ isRetainer( StgClosure *c )
     case RET_BIG:
 	// other cases
     case IND:
-    case BLOCKED_FETCH:
-    case FETCH_ME:
-    case FETCH_ME_BQ:
-    case RBH:
-    case REMOTE_REF:
     case INVALID_OBJECT:
     default:
 	barf("Invalid object in isRetainer(): %d", get_itbl(c)->type);