diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-08-03 20:21:51 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-08-03 20:21:51 +0000 |
| commit | 02ec05e6564d9bbb536c5c0f3cd3c1b5503e3aea (patch) | |
| tree | eb837b91f992ab7a7da4ec255528049c1e5895c5 /rts/RetainerProfile.c | |
| parent | 9b266fba8f18f9f8a469bbe0b51b80a91217f1ab (diff) | |
| download | haskell-02ec05e6564d9bbb536c5c0f3cd3c1b5503e3aea.tar.gz | |
remove the GUM closure types
Diffstat (limited to 'rts/RetainerProfile.c')
| -rw-r--r-- | rts/RetainerProfile.c | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index fa12637ef6..4441749200 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); |