diff options
| author | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-17 21:27:07 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-17 21:27:07 +0000 |
| commit | 4e79709df545c16812b85f2c27ab3411f5a7b54f (patch) | |
| tree | 518c23ecad5b34b5ad99d5ecd7b2fb2c52949c4f /rts/RetainerProfile.c | |
| parent | a4e09e8f27b81e915b128ef244c7b0d082bfb89a (diff) | |
| download | haskell-4e79709df545c16812b85f2c27ab3411f5a7b54f.tar.gz | |
remove EVACUATED: store the forwarding pointer in the info pointer
Diffstat (limited to 'rts/RetainerProfile.c')
| -rw-r--r-- | rts/RetainerProfile.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index b71b620d96..4850b94d21 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -626,7 +626,6 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child ) case FETCH_ME_BQ: case RBH: case REMOTE_REF: - case EVACUATED: case INVALID_OBJECT: default: barf("Invalid object *c in push()"); @@ -992,7 +991,6 @@ pop( StgClosure **c, StgClosure **cp, retainer *r ) case FETCH_ME_BQ: case RBH: case REMOTE_REF: - case EVACUATED: case INVALID_OBJECT: default: barf("Invalid object *c in pop()"); @@ -1157,7 +1155,6 @@ isRetainer( StgClosure *c ) case FETCH_ME_BQ: case RBH: case REMOTE_REF: - case EVACUATED: case INVALID_OBJECT: default: barf("Invalid object in isRetainer(): %d", get_itbl(c)->type); |