diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-12-16 10:21:00 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-12-16 10:21:00 +0000 |
| commit | 470d52df0101a2f3c528b35e046ef9814ae6e5a5 (patch) | |
| tree | 84f50006c0eea3b49475d566cd0d3a2a3b7c8c85 /rts/LdvProfile.c | |
| parent | edc0bafd3fcd01b85a2e8894e5dfe149eb0e0857 (diff) | |
| download | haskell-470d52df0101a2f3c528b35e046ef9814ae6e5a5.tar.gz | |
add a missing STACK case
Diffstat (limited to 'rts/LdvProfile.c')
| -rw-r--r-- | rts/LdvProfile.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c index acec0572d7..c95dd1befd 100644 --- a/rts/LdvProfile.c +++ b/rts/LdvProfile.c @@ -98,6 +98,7 @@ processHeapClosureForDead( StgClosure *c ) 'inherently used' cases: do nothing. */ case TSO: + case STACK: case MVAR_CLEAN: case MVAR_DIRTY: case MUT_ARR_PTRS_CLEAN: |