diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2018-04-13 12:10:45 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-04-13 12:10:45 -0400 |
| commit | 9430901df1428e9ea512d136648e1eba3c9b9a1c (patch) | |
| tree | ab0e51161dbb76f33a7182eda33ef65dc463933e /rts/LdvProfile.c | |
| parent | 6a78a40b616369b280630fe6259be35be9806caa (diff) | |
| download | haskell-9430901df1428e9ea512d136648e1eba3c9b9a1c.tar.gz | |
Revert "Fix processHeapClosureForDead CONSTR_NOCAF case:"
This reverts commit a303584e58b3f4791bc5881cb722e7f498e14554.
Diffstat (limited to 'rts/LdvProfile.c')
| -rw-r--r-- | rts/LdvProfile.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c index 7cf9cebb0c..789941603a 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: |